;;;; Generated on 10/20/2021 at 09:40:04 (UTC+10).

(COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0)
                      COMMON-LISP:SAFETY COMMON-LISP:DEBUG
                      COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM (COMMON-LISP:INLINE %%SLAORHR_COL_GETRFNP
                      %SLAORHR_COL_GETRFNP %%CLARCM %CLARCM %%DGEBD2
                      %DGEBD2 %%CLARFB %CLARFB %%SORGQR %SORGQR
                      %%DORGQR %DORGQR %%SSPGVD %SSPGVD %%SHSEQR
                      %SHSEQR %%ZGEQRFP %ZGEQRFP %%SORGHR %SORGHR
                      %%DLASD5 %DLASD5 %%STPTRS %STPTRS %%SCOMBSSQ
                      %SCOMBSSQ %%DSYTRF_RK %DSYTRF_RK %%SLAPMT %SLAPMT
                      %%ZUNMBR %ZUNMBR %%CTPTRI %CTPTRI %%ZLACN2
                      %ZLACN2 %%CTPMLQT %CTPMLQT %%CGESV %CGESV
                      %%ZLAMTSQR %ZLAMTSQR %%ZUNHR_COL %ZUNHR_COL
                      %%SLASD8 %SLASD8 %%DGETRF2 %DGETRF2 %%STRTRI
                      %STRTRI %%SLATRD %SLATRD %%ZGELSD %ZGELSD
                      %%DLASCL2 %DLASCL2 %%ZHESV %ZHESV %%DPORFSX
                      %DPORFSX %%DGGES %DGGES %%DSYTRI2X %DSYTRI2X
                      %%SLASQ4 %SLASQ4 %%CHETRI_ROOK %CHETRI_ROOK
                      %%ZLANSY %ZLANSY %%DLAQSB %DLAQSB %%ZPTRFS
                      %ZPTRFS %%SSYSVXX %SSYSVXX %%ZGEQLF %ZGEQLF
                      %%DLAQTR %DLAQTR %%DGGEV %DGGEV %%CSYSV_AA
                      %CSYSV_AA %%DSBTRD %DSBTRD %%ZUNMQL %ZUNMQL
                      %%ILACLR %ILACLR %%SLAQR4 %SLAQR4 %%DLASD0
                      %DLASD0 %%ZPSTF2 %ZPSTF2 %%DGGGLM %DGGGLM
                      %%ZLANHF %ZLANHF %%CLAQHB %CLAQHB %%ZSPRFS
                      %ZSPRFS %%CLA_GBRCOND_X %CLA_GBRCOND_X %%ICMAX1
                      %ICMAX1 %%ZLALSD %ZLALSD %%CLASWLQ %CLASWLQ
                      %%ZGBTRS %ZGBTRS %%ILACLC %ILACLC %%CSYSWAPR
                      %CSYSWAPR %%ZPTTRS %ZPTTRS %%ZGELQF %ZGELQF
                      %%ZLASR %ZLASR %%STPCON %STPCON %%DLATRD %DLATRD
                      %%SORM2R %SORM2R %%CLAEV2 %CLAEV2 %%DHGEQZ
                      %DHGEQZ %%CGTTRF %CGTTRF %%DGTTRS %DGTTRS
                      %%CLA_HERPVGRW %CLA_HERPVGRW %%CPOSVX %CPOSVX
                      %%DGBEQUB %DGBEQUB %%ZHEGV %ZHEGV %%CGBEQUB
                      %CGBEQUB %%CLARTG %CLARTG %%DGGEVX %DGGEVX
                      %%ZHPGST %ZHPGST %%DSBEV_2STAGE %DSBEV_2STAGE
                      %%DGEQR2 %DGEQR2 %%ZTBRFS %ZTBRFS %%CLA_GEAMV
                      %CLA_GEAMV %%SSPSV %SSPSV %%DLAQGE %DLAQGE
                      %%ZLARTV %ZLARTV %%DLARFB %DLARFB %%CPSTF2
                      %CPSTF2 %%ZUNBDB2 %ZUNBDB2 %%ZUNBDB1 %ZUNBDB1
                      %%DLA_GBRPVGRW %DLA_GBRPVGRW %%SBDSQR %SBDSQR
                      %%CLANGB %CLANGB %%DPOSVX %DPOSVX %%SLACN2
                      %SLACN2 %%ZSYSV_AA %ZSYSV_AA %%STPMLQT %STPMLQT
                      %%ZHPRFS %ZHPRFS %%CGESVD %CGESVD %%CHBGST
                      %CHBGST %%DGTCON %DGTCON %%ZLARZB %ZLARZB
                      %%SGGESX %SGGESX %%SPOCON %SPOCON %%SGEEQUB
                      %SGEEQUB %%SLASCL2 %SLASCL2 %%CGGESX %CGGESX
                      %%CGTRFS %CGTRFS %%ZSYTRF %ZSYTRF %%ZLA_PORCOND_C
                      %ZLA_PORCOND_C %%SORCSD %SORCSD %%CLAQR4 %CLAQR4
                      %%DSBEVX %DSBEVX %%CUNGTR %CUNGTR %%SLASYF_RK
                      %SLASYF_RK %%CLAHR2 %CLAHR2 %%ZLA_PORFSX_EXTENDED
                      %ZLA_PORFSX_EXTENDED %%SGESVJ %SGESVJ %%CUPMTR
                      %CUPMTR %%ZSYCONV %ZSYCONV %%ZSYTRI_3 %ZSYTRI_3
                      %%SLARGV %SLARGV %%DORBDB5 %DORBDB5 %%STPTTR
                      %STPTTR %%SLAEXC %SLAEXC %%DCOMBSSQ %DCOMBSSQ
                      %%SLARFY %SLARFY %%SGEBAL %SGEBAL %%ZSPR %ZSPR
                      %%SGELSD %SGELSD %%ZGESVXX %ZGESVXX %%CUNG2L
                      %CUNG2L %%SGERQ2 %SGERQ2 %%CHEEVX_2STAGE
                      %CHEEVX_2STAGE %%SSYTF2 %SSYTF2 %%CTPCON %CTPCON
                      %%ZTGSNA %ZTGSNA %%CLADIV %CLADIV %%STFTTR
                      %STFTTR %%ZHB2ST_KERNELS %ZHB2ST_KERNELS %%DLAQSP
                      %DLAQSP %%SLASD2 %SLASD2 %%SLANTP %SLANTP
                      %%DGGEV3 %DGGEV3 %%XERBLA %XERBLA %%DTGSEN
                      %DTGSEN %%ZGTTRF %ZGTTRF %%DORGR2 %DORGR2
                      %%DLANV2 %DLANV2 %%SLAED3 %SLAED3 %%DGEESX
                      %DGEESX %%SSYTRI2X %SSYTRI2X %%SGEMLQT %SGEMLQT
                      %%CUNCSD %CUNCSD %%ZGESC2 %ZGESC2 %%ZSTEIN
                      %ZSTEIN %%SSB2ST_KERNELS %SSB2ST_KERNELS %%DLASD4
                      %DLASD4 %%DGESVDQ %DGESVDQ %%ZHEEQUB %ZHEEQUB
                      %%DGESVDX %DGESVDX %%CHPSV %CHPSV %%CGBSVX
                      %CGBSVX %%ZLA_LIN_BERR %ZLA_LIN_BERR %%CHESV_AA
                      %CHESV_AA %%ZLANGB %ZLANGB %%CGETF2 %CGETF2
                      %%DLACN2 %DLACN2 %%DORMLQ %DORMLQ %%CLAUU2
                      %CLAUU2 %%DSFRK %DSFRK %%CLAPMT %CLAPMT %%DLANGB
                      %DLANGB %%CHSEIN %CHSEIN %%CHETRD_2STAGE
                      %CHETRD_2STAGE %%DSYSV_ROOK %DSYSV_ROOK %%CGEEVX
                      %CGEEVX %%DGEQRT3 %DGEQRT3 %%DSYTRD_SY2SB
                      %DSYTRD_SY2SB %%DGEQRT %DGEQRT %%SGGEV %SGGEV
                      %%SPBSVX %SPBSVX %%ZLA_SYRCOND_X %ZLA_SYRCOND_X
                      %%SGBRFSX %SGBRFSX %%CLACRT %CLACRT %%ZHETRI_3X
                      %ZHETRI_3X %%SPTTRF %SPTTRF %%CHETRD %CHETRD
                      %%CUNGTSQR %CUNGTSQR %%CBDSQR %CBDSQR %%CGELQ
                      %CGELQ %%DLARFT %DLARFT %%CPTSV %CPTSV %%SLATDF
                      %SLATDF %%CLAESY %CLAESY %%STPTRI %STPTRI
                      %%ZHETRI %ZHETRI %%DORGLQ %DORGLQ %%DLASV2
                      %DLASV2 %%CGETRF %CGETRF %%ZSYTRF_RK %ZSYTRF_RK
                      %%ZPOTRS %ZPOTRS %%CTGEVC %CTGEVC %%ZSYTRI2
                      %ZSYTRI2 %%SISNAN %SISNAN %%DPBCON %DPBCON
                      %%ZSYTRS_AA_2STAGE %ZSYTRS_AA_2STAGE %%CPOTRI
                      %CPOTRI %%DPPTRI %DPPTRI %%CSYTRI_3X %CSYTRI_3X
                      %%ZHETRF_AA_2STAGE %ZHETRF_AA_2STAGE %%CHETRS_3
                      %CHETRS_3 %%SORG2R %SORG2R %%DSYTRF_ROOK
                      %DSYTRF_ROOK %%SLAQSY %SLAQSY %%ZGGSVP3 %ZGGSVP3
                      %%ZHEEVR_2STAGE %ZHEEVR_2STAGE %%DPBSVX %DPBSVX
                      %%CSYTRI %CSYTRI %%DSBGVD %DSBGVD %%ZLANTB
                      %ZLANTB %%ZTPMLQT %ZTPMLQT %%DLA_PORCOND
                      %DLA_PORCOND %%SSPTRD %SSPTRD %%DLAPY2 %DLAPY2
                      %%SSYEVD %SSYEVD %%SLAPLL %SLAPLL %%CTRSNA
                      %CTRSNA %%SSYTRS_AA_2STAGE %SSYTRS_AA_2STAGE
                      %%IEEECK %IEEECK %%CGGGLM %CGGGLM %%SLASRT
                      %SLASRT %%SSTEGR %SSTEGR %%DPBTRF %DPBTRF
                      %%ZLASWP %ZLASWP %%ZGERFSX %ZGERFSX %%DSYTRI2
                      %DSYTRI2 %%SORBDB4 %SORBDB4 %%CBBCSD %CBBCSD
                      %%DLATPS %DLATPS %%DBDSQR %DBDSQR %%DLAQSY
                      %DLAQSY %%ZPTTRF %ZPTTRF %%ZLAUUM %ZLAUUM
                      %%DSYSV_AA %DSYSV_AA %%DSPTRF %DSPTRF %%CGESC2
                      %CGESC2 %%CGEQRT2 %CGEQRT2 %%SSYTRS_3 %SSYTRS_3
                      %%SGELSY %SGELSY))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%SLAORHR_COL_GETRFNP "slaorhr_col_getrfnp_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAORHR_COL_GETRFNP (M N A LDA D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAORHR_COL_GETRFNP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18768 ':INT32) (N-REF18769 ':INT32)
                              (LDA-REF18771 ':INT32)
                              (INFO-REF18773 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18768 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18769 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18771 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18773 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18770 A)
                                            (D-REF18772 D))
      (%%SLAORHR_COL_GETRFNP M-REF18768 N-REF18769 A-REF18770
       LDA-REF18771 D-REF18772 INFO-REF18773))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLARCM "clarcm_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLARCM (M N A LDA B LDB C LDC RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARCM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18774 ':INT32) (N-REF18775 ':INT32)
                              (LDA-REF18777 ':INT32)
                              (LDB-REF18779 ':INT32)
                              (LDC-REF18781 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18774 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18775 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18777 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18779 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18781 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18776 A)
                                            (B-REF18778 B)
                                            (C-REF18780 C)
                                            (RWORK-REF18782 RWORK))
      (%%CLARCM M-REF18774 N-REF18775 A-REF18776 LDA-REF18777
       B-REF18778 LDB-REF18779 C-REF18780 LDC-REF18781
       RWORK-REF18782))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEBD2 "dgebd2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (TAUQ :FOREIGN-ADDRESS) (TAUP :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEBD2 (M N A LDA D E TAUQ TAUP WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEBD2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18783 ':INT32) (N-REF18784 ':INT32)
                              (LDA-REF18786 ':INT32)
                              (INFO-REF18792 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18783 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18784 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18786 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18792 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18785 A)
                                            (D-REF18787 D)
                                            (E-REF18788 E)
                                            (TAUQ-REF18789 TAUQ)
                                            (TAUP-REF18790 TAUP)
                                            (WORK-REF18791 WORK))
      (%%DGEBD2 M-REF18783 N-REF18784 A-REF18785 LDA-REF18786
       D-REF18787 E-REF18788 TAUQ-REF18789 TAUP-REF18790 WORK-REF18791
       INFO-REF18792))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLARFB "clarfb_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LDWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLARFB
    (SIDE TRANS DIRECT STOREV M N K V LDV T LDT C LDC WORK LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18797 ':INT32) (N-REF18798 ':INT32)
                              (K-REF18799 ':INT32)
                              (LDV-REF18801 ':INT32)
                              (LDT-REF18803 ':INT32)
                              (LDC-REF18805 ':INT32)
                              (LDWORK-REF18807 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18797 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18798 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18799 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18801 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18803 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18805 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF18807 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF18800 V)
                                            (T-REF18802 T)
                                            (C-REF18804 C)
                                            (WORK-REF18806 WORK))
      (%%CLARFB SIDE TRANS DIRECT STOREV M-REF18797 N-REF18798
       K-REF18799 V-REF18800 LDV-REF18801 T-REF18802 LDT-REF18803
       C-REF18804 LDC-REF18805 WORK-REF18806 LDWORK-REF18807))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORGQR "sorgqr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORGQR (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18808 ':INT32) (N-REF18809 ':INT32)
                              (K-REF18810 ':INT32)
                              (LDA-REF18812 ':INT32)
                              (LWORK-REF18815 ':INT32)
                              (INFO-REF18816 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18808 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18809 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18810 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18812 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18815 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18816 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18811 A)
                                            (TAU-REF18813 TAU)
                                            (WORK-REF18814 WORK))
      (%%SORGQR M-REF18808 N-REF18809 K-REF18810 A-REF18811
       LDA-REF18812 TAU-REF18813 WORK-REF18814 LWORK-REF18815
       INFO-REF18816))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORGQR "dorgqr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORGQR (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18817 ':INT32) (N-REF18818 ':INT32)
                              (K-REF18819 ':INT32)
                              (LDA-REF18821 ':INT32)
                              (LWORK-REF18824 ':INT32)
                              (INFO-REF18825 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18817 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18818 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18819 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18821 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18824 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18825 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18820 A)
                                            (TAU-REF18822 TAU)
                                            (WORK-REF18823 WORK))
      (%%DORGQR M-REF18817 N-REF18818 K-REF18819 A-REF18820
       LDA-REF18821 TAU-REF18822 WORK-REF18823 LWORK-REF18824
       INFO-REF18825))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSPGVD "sspgvd_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (BP :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSPGVD
    (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPGVD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF18826 ':INT32)
                              (N-REF18829 ':INT32)
                              (LDZ-REF18834 ':INT32)
                              (LWORK-REF18836 ':INT32)
                              (LIWORK-REF18838 ':INT32)
                              (INFO-REF18839 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF18826 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18829 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18834 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18836 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18838 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18839 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF18830 AP)
                                            (BP-REF18831 BP)
                                            (W-REF18832 W)
                                            (Z-REF18833 Z)
                                            (WORK-REF18835 WORK)
                                            (IWORK-REF18837 IWORK))
      (%%SSPGVD ITYPE-REF18826 JOBZ UPLO N-REF18829 AP-REF18830
       BP-REF18831 W-REF18832 Z-REF18833 LDZ-REF18834 WORK-REF18835
       LWORK-REF18836 IWORK-REF18837 LIWORK-REF18838 INFO-REF18839))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SHSEQR "shseqr_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (WR :FOREIGN-ADDRESS)
   (WI :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SHSEQR
    (JOB COMPZ N ILO IHI H LDH WR WI Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SHSEQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18842 ':INT32)
                              (ILO-REF18843 ':INT32)
                              (IHI-REF18844 ':INT32)
                              (LDH-REF18846 ':INT32)
                              (LDZ-REF18850 ':INT32)
                              (LWORK-REF18852 ':INT32)
                              (INFO-REF18853 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18842 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18843 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18844 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF18846 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18850 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18852 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18853 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF18845 H)
                                            (WR-REF18847 WR)
                                            (WI-REF18848 WI)
                                            (Z-REF18849 Z)
                                            (WORK-REF18851 WORK))
      (%%SHSEQR JOB COMPZ N-REF18842 ILO-REF18843 IHI-REF18844
       H-REF18845 LDH-REF18846 WR-REF18847 WI-REF18848 Z-REF18849
       LDZ-REF18850 WORK-REF18851 LWORK-REF18852 INFO-REF18853))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEQRFP "zgeqrfp_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEQRFP (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQRFP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18854 ':INT32) (N-REF18855 ':INT32)
                              (LDA-REF18857 ':INT32)
                              (LWORK-REF18860 ':INT32)
                              (INFO-REF18861 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18854 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18855 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18857 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18860 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18861 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18856 A)
                                            (TAU-REF18858 TAU)
                                            (WORK-REF18859 WORK))
      (%%ZGEQRFP M-REF18854 N-REF18855 A-REF18856 LDA-REF18857
       TAU-REF18858 WORK-REF18859 LWORK-REF18860 INFO-REF18861))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORGHR "sorghr_")
  ((N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORGHR (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGHR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18862 ':INT32)
                              (ILO-REF18863 ':INT32)
                              (IHI-REF18864 ':INT32)
                              (LDA-REF18866 ':INT32)
                              (LWORK-REF18869 ':INT32)
                              (INFO-REF18870 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18862 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18863 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18864 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18866 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18869 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18870 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18865 A)
                                            (TAU-REF18867 TAU)
                                            (WORK-REF18868 WORK))
      (%%SORGHR N-REF18862 ILO-REF18863 IHI-REF18864 A-REF18865
       LDA-REF18866 TAU-REF18867 WORK-REF18868 LWORK-REF18869
       INFO-REF18870))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASD5 "dlasd5_")
  ((I :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (DELTA :FOREIGN-ADDRESS) (RHO :FOREIGN-ADDRESS)
   (DSIGMA :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASD5 (I D Z DELTA RHO DSIGMA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD5)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DELTA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DSIGMA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((I-REF18871 ':INT32)
                              (RHO-REF18875 ':DOUBLE)
                              (DSIGMA-REF18876 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF18871 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF18875 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DSIGMA-REF18876 :DOUBLE) DSIGMA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF18872 D)
                                            (Z-REF18873 Z)
                                            (DELTA-REF18874 DELTA)
                                            (WORK-REF18877 WORK))
      (%%DLASD5 I-REF18871 D-REF18872 Z-REF18873 DELTA-REF18874
       RHO-REF18875 DSIGMA-REF18876 WORK-REF18877))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STPTRS "stptrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STPTRS (UPLO TRANS DIAG N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18881 ':INT32)
                              (NRHS-REF18882 ':INT32)
                              (LDB-REF18885 ':INT32)
                              (INFO-REF18886 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18881 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18882 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18885 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18886 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF18883 AP)
                                            (B-REF18884 B))
      (%%STPTRS UPLO TRANS DIAG N-REF18881 NRHS-REF18882 AP-REF18883
       B-REF18884 LDB-REF18885 INFO-REF18886))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SCOMBSSQ "scombssq_")
  ((V1 :FOREIGN-ADDRESS) (V2 :FOREIGN-ADDRESS)) :RETURNING :VOID
  :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SCOMBSSQ (V1 V2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SCOMBSSQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V2))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V1-REF18887 V1)
                                            (V2-REF18888 V2))
      (%%SCOMBSSQ V1-REF18887 V2-REF18888))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRF_RK "dsytrf_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRF_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18890 ':INT32)
                              (LDA-REF18892 ':INT32)
                              (LWORK-REF18896 ':INT32)
                              (INFO-REF18897 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18890 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18892 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18896 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18897 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18891 A)
                                            (E-REF18893 E)
                                            (IPIV-REF18894 IPIV)
                                            (WORK-REF18895 WORK))
      (%%DSYTRF_RK UPLO N-REF18890 A-REF18891 LDA-REF18892 E-REF18893
       IPIV-REF18894 WORK-REF18895 LWORK-REF18896 INFO-REF18897))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAPMT "slapmt_")
  ((FORWRD :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAPMT (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAPMT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF18898 ':INT32)
                              (M-REF18899 ':INT32) (N-REF18900 ':INT32)
                              (LDX-REF18902 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF18898 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18899 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18900 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18902 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF18901 X)
                                            (K-REF18903 K))
      (%%SLAPMT FORWRD-REF18898 M-REF18899 N-REF18900 X-REF18901
       LDX-REF18902 K-REF18903))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNMBR "zunmbr_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNMBR
    (VECT SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMBR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18907 ':INT32) (N-REF18908 ':INT32)
                              (K-REF18909 ':INT32)
                              (LDA-REF18911 ':INT32)
                              (LDC-REF18914 ':INT32)
                              (LWORK-REF18916 ':INT32)
                              (INFO-REF18917 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18907 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18908 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18909 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18911 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18914 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18916 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18917 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18910 A)
                                            (TAU-REF18912 TAU)
                                            (C-REF18913 C)
                                            (WORK-REF18915 WORK))
      (%%ZUNMBR VECT SIDE TRANS M-REF18907 N-REF18908 K-REF18909
       A-REF18910 LDA-REF18911 TAU-REF18912 C-REF18913 LDC-REF18914
       WORK-REF18915 LWORK-REF18916 INFO-REF18917))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTPTRI "ctptri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTPTRI (UPLO DIAG N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18920 ':INT32)
                              (INFO-REF18922 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18920 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18922 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF18921 AP))
      (%%CTPTRI UPLO DIAG N-REF18920 AP-REF18921 INFO-REF18922))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLACN2 "zlacn2_")
  ((N :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (EST :FOREIGN-ADDRESS) (KASE :FOREIGN-ADDRESS)
   (ISAVE :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLACN2 (N V X EST KASE ISAVE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACN2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISAVE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18923 ':INT32)
                              (EST-REF18926 ':DOUBLE)
                              (KASE-REF18927 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18923 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF18926 :DOUBLE) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF18927 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF18924 V)
                                            (X-REF18925 X)
                                            (ISAVE-REF18928 ISAVE))
      (%%ZLACN2 N-REF18923 V-REF18924 X-REF18925 EST-REF18926
       KASE-REF18927 ISAVE-REF18928))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTPMLQT "ctpmlqt_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTPMLQT
    (SIDE TRANS M N K L MB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPMLQT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18931 ':INT32) (N-REF18932 ':INT32)
                              (K-REF18933 ':INT32) (L-REF18934 ':INT32)
                              (MB-REF18935 ':INT32)
                              (LDV-REF18937 ':INT32)
                              (LDT-REF18939 ':INT32)
                              (LDA-REF18941 ':INT32)
                              (LDB-REF18943 ':INT32)
                              (INFO-REF18945 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18931 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18932 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18933 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF18934 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF18935 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18937 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18939 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18941 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18943 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18945 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF18936 V)
                                            (T-REF18938 T)
                                            (A-REF18940 A)
                                            (B-REF18942 B)
                                            (WORK-REF18944 WORK))
      (%%CTPMLQT SIDE TRANS M-REF18931 N-REF18932 K-REF18933 L-REF18934
       MB-REF18935 V-REF18936 LDV-REF18937 T-REF18938 LDT-REF18939
       A-REF18940 LDA-REF18941 B-REF18942 LDB-REF18943 WORK-REF18944
       INFO-REF18945))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGESV "cgesv_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGESV (N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18946 ':INT32)
                              (NRHS-REF18947 ':INT32)
                              (LDA-REF18949 ':INT32)
                              (LDB-REF18952 ':INT32)
                              (INFO-REF18953 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18946 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18947 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18949 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18952 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18953 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18948 A)
                                            (IPIV-REF18950 IPIV)
                                            (B-REF18951 B))
      (%%CGESV N-REF18946 NRHS-REF18947 A-REF18948 LDA-REF18949
       IPIV-REF18950 B-REF18951 LDB-REF18952 INFO-REF18953))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAMTSQR "zlamtsqr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (MB :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAMTSQR
    (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAMTSQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18956 ':INT32) (N-REF18957 ':INT32)
                              (K-REF18958 ':INT32)
                              (MB-REF18959 ':INT32)
                              (NB-REF18960 ':INT32)
                              (LDA-REF18962 ':INT32)
                              (LDT-REF18964 ':INT32)
                              (LDC-REF18966 ':INT32)
                              (LWORK-REF18968 ':INT32)
                              (INFO-REF18969 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18956 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18957 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18958 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF18959 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18960 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18962 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18964 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18966 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18968 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18969 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18961 A)
                                            (T-REF18963 T)
                                            (C-REF18965 C)
                                            (WORK-REF18967 WORK))
      (%%ZLAMTSQR SIDE TRANS M-REF18956 N-REF18957 K-REF18958
       MB-REF18959 NB-REF18960 A-REF18961 LDA-REF18962 T-REF18963
       LDT-REF18964 C-REF18965 LDC-REF18966 WORK-REF18967
       LWORK-REF18968 INFO-REF18969))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNHR_COL "zunhr_col_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNHR_COL (M N NB A LDA T LDT D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNHR_COL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18970 ':INT32) (N-REF18971 ':INT32)
                              (NB-REF18972 ':INT32)
                              (LDA-REF18974 ':INT32)
                              (LDT-REF18976 ':INT32)
                              (INFO-REF18978 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18970 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18971 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18972 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18974 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18976 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18978 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18973 A)
                                            (T-REF18975 T)
                                            (D-REF18977 D))
      (%%ZUNHR_COL M-REF18970 N-REF18971 NB-REF18972 A-REF18973
       LDA-REF18974 T-REF18975 LDT-REF18976 D-REF18977 INFO-REF18978))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASD8 "slasd8_")
  ((ICOMPQ :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (VF :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (DIFL :FOREIGN-ADDRESS) (DIFR :FOREIGN-ADDRESS)
   (LDDIFR :FOREIGN-ADDRESS) (DSIGMA :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASD8
    (ICOMPQ K D Z VF VL DIFL DIFR LDDIFR DSIGMA WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD8)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIFL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIFR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDDIFR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DSIGMA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF18979 ':INT32)
                              (K-REF18980 ':INT32)
                              (LDDIFR-REF18987 ':INT32)
                              (INFO-REF18990 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF18979 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18980 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDDIFR-REF18987 :INT32) LDDIFR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18990 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF18981 D)
                                            (Z-REF18982 Z)
                                            (VF-REF18983 VF)
                                            (VL-REF18984 VL)
                                            (DIFL-REF18985 DIFL)
                                            (DIFR-REF18986 DIFR)
                                            (DSIGMA-REF18988 DSIGMA)
                                            (WORK-REF18989 WORK))
      (%%SLASD8 ICOMPQ-REF18979 K-REF18980 D-REF18981 Z-REF18982
       VF-REF18983 VL-REF18984 DIFL-REF18985 DIFR-REF18986
       LDDIFR-REF18987 DSIGMA-REF18988 WORK-REF18989 INFO-REF18990))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGETRF2 "dgetrf2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGETRF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETRF2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18991 ':INT32) (N-REF18992 ':INT32)
                              (LDA-REF18994 ':INT32)
                              (INFO-REF18996 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18991 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18992 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18994 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18996 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18993 A)
                                            (IPIV-REF18995 IPIV))
      (%%DGETRF2 M-REF18991 N-REF18992 A-REF18993 LDA-REF18994
       IPIV-REF18995 INFO-REF18996))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STRTRI "strtri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STRTRI (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18999 ':INT32)
                              (LDA-REF19001 ':INT32)
                              (INFO-REF19002 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18999 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19001 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19002 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19000 A))
      (%%STRTRI UPLO DIAG N-REF18999 A-REF19000 LDA-REF19001
       INFO-REF19002))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLATRD "slatrd_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (LDW :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLATRD (UPLO N NB A LDA E TAU W LDW)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19004 ':INT32)
                              (NB-REF19005 ':INT32)
                              (LDA-REF19007 ':INT32)
                              (LDW-REF19011 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19004 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF19005 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19007 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF19011 :INT32) LDW)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19006 A)
                                            (E-REF19008 E)
                                            (TAU-REF19009 TAU)
                                            (W-REF19010 W))
      (%%SLATRD UPLO N-REF19004 NB-REF19005 A-REF19006 LDA-REF19007
       E-REF19008 TAU-REF19009 W-REF19010 LDW-REF19011))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGELSD "zgelsd_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RANK :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGELSD
    (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELSD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19012 ':INT32) (N-REF19013 ':INT32)
                              (NRHS-REF19014 ':INT32)
                              (LDA-REF19016 ':INT32)
                              (LDB-REF19018 ':INT32)
                              (RCOND-REF19020 ':DOUBLE)
                              (RANK-REF19021 ':INT32)
                              (LWORK-REF19023 ':INT32)
                              (INFO-REF19026 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19012 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19013 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19014 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19016 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19018 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19020 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF19021 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19023 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19026 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19015 A)
                                            (B-REF19017 B)
                                            (S-REF19019 S)
                                            (WORK-REF19022 WORK)
                                            (RWORK-REF19024 RWORK)
                                            (IWORK-REF19025 IWORK))
      (%%ZGELSD M-REF19012 N-REF19013 NRHS-REF19014 A-REF19015
       LDA-REF19016 B-REF19017 LDB-REF19018 S-REF19019 RCOND-REF19020
       RANK-REF19021 WORK-REF19022 LWORK-REF19023 RWORK-REF19024
       IWORK-REF19025 INFO-REF19026))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASCL2 "dlascl2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASCL2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19027 ':INT32) (N-REF19028 ':INT32)
                              (LDX-REF19031 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19027 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19028 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19031 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF19029 D)
                                            (X-REF19030 X))
      (%%DLASCL2 M-REF19027 N-REF19028 D-REF19029 X-REF19030
       LDX-REF19031))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHESV "zhesv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHESV
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19033 ':INT32)
                              (NRHS-REF19034 ':INT32)
                              (LDA-REF19036 ':INT32)
                              (LDB-REF19039 ':INT32)
                              (LWORK-REF19041 ':INT32)
                              (INFO-REF19042 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19033 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19034 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19036 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19039 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19041 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19042 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19035 A)
                                            (IPIV-REF19037 IPIV)
                                            (B-REF19038 B)
                                            (WORK-REF19040 WORK))
      (%%ZHESV UPLO N-REF19033 NRHS-REF19034 A-REF19035 LDA-REF19036
       IPIV-REF19037 B-REF19038 LDB-REF19039 WORK-REF19040
       LWORK-REF19041 INFO-REF19042))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPORFSX "dporfsx_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (N_ERR_BNDS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (NPARAMS :FOREIGN-ADDRESS) (PARAMS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPORFSX
    (UPLO EQUED N NRHS A LDA AF LDAF S B LDB X LDX RCOND BERR
     N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK IWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPORFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19045 ':INT32)
                              (NRHS-REF19046 ':INT32)
                              (LDA-REF19048 ':INT32)
                              (LDAF-REF19050 ':INT32)
                              (LDB-REF19053 ':INT32)
                              (LDX-REF19055 ':INT32)
                              (RCOND-REF19056 ':DOUBLE)
                              (N_ERR_BNDS-REF19058 ':INT32)
                              (NPARAMS-REF19061 ':INT32)
                              (INFO-REF19065 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19045 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19046 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19048 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19050 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19053 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19055 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19056 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF19058 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF19061 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19065 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19047 A)
                                            (AF-REF19049 AF)
                                            (S-REF19051 S)
                                            (B-REF19052 B)
                                            (X-REF19054 X)
                                            (BERR-REF19057 BERR)
                                            (ERR_BNDS_NORM-REF19059
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF19060
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF19062 PARAMS)
                                            (WORK-REF19063 WORK)
                                            (IWORK-REF19064 IWORK))
      (%%DPORFSX UPLO EQUED N-REF19045 NRHS-REF19046 A-REF19047
       LDA-REF19048 AF-REF19049 LDAF-REF19050 S-REF19051 B-REF19052
       LDB-REF19053 X-REF19054 LDX-REF19055 RCOND-REF19056
       BERR-REF19057 N_ERR_BNDS-REF19058 ERR_BNDS_NORM-REF19059
       ERR_BNDS_COMP-REF19060 NPARAMS-REF19061 PARAMS-REF19062
       WORK-REF19063 IWORK-REF19064 INFO-REF19065))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGGES "dgges_")
  ((JOBVSL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SORT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELCTG :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (SDIM :FOREIGN-ADDRESS) (ALPHAR :FOREIGN-ADDRESS)
   (ALPHAI :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (VSL :FOREIGN-ADDRESS) (LDVSL :FOREIGN-ADDRESS)
   (VSR :FOREIGN-ADDRESS) (LDVSR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (BWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGGES
    (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHAR ALPHAI BETA
     VSL LDVSL VSR LDVSR WORK LWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGES)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VSL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VSR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF19069 ':INT32)
                              (N-REF19070 ':INT32)
                              (LDA-REF19072 ':INT32)
                              (LDB-REF19074 ':INT32)
                              (SDIM-REF19075 ':INT32)
                              (LDVSL-REF19080 ':INT32)
                              (LDVSR-REF19082 ':INT32)
                              (LWORK-REF19084 ':INT32)
                              (INFO-REF19086 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF19069 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19070 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19072 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19074 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF19075 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF19080 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF19082 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19084 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19086 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19071 A)
                                            (B-REF19073 B)
                                            (ALPHAR-REF19076 ALPHAR)
                                            (ALPHAI-REF19077 ALPHAI)
                                            (BETA-REF19078 BETA)
                                            (VSL-REF19079 VSL)
                                            (VSR-REF19081 VSR)
                                            (WORK-REF19083 WORK)
                                            (BWORK-REF19085 BWORK))
      (%%DGGES JOBVSL JOBVSR SORT SELCTG-REF19069 N-REF19070 A-REF19071
       LDA-REF19072 B-REF19073 LDB-REF19074 SDIM-REF19075
       ALPHAR-REF19076 ALPHAI-REF19077 BETA-REF19078 VSL-REF19079
       LDVSL-REF19080 VSR-REF19081 LDVSR-REF19082 WORK-REF19083
       LWORK-REF19084 BWORK-REF19085 INFO-REF19086))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRI2X "dsytri2x_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRI2X (UPLO N A LDA IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI2X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19088 ':INT32)
                              (LDA-REF19090 ':INT32)
                              (NB-REF19093 ':INT32)
                              (INFO-REF19094 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19088 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19090 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF19093 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19094 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19089 A)
                                            (IPIV-REF19091 IPIV)
                                            (WORK-REF19092 WORK))
      (%%DSYTRI2X UPLO N-REF19088 A-REF19089 LDA-REF19090 IPIV-REF19091
       WORK-REF19092 NB-REF19093 INFO-REF19094))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASQ4 "slasq4_")
  ((I0 :FOREIGN-ADDRESS) (N0 :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (PP :FOREIGN-ADDRESS) (N0IN :FOREIGN-ADDRESS)
   (DMIN :FOREIGN-ADDRESS) (DMIN1 :FOREIGN-ADDRESS)
   (DMIN2 :FOREIGN-ADDRESS) (DN :FOREIGN-ADDRESS)
   (DN1 :FOREIGN-ADDRESS) (DN2 :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (TTYPE :FOREIGN-ADDRESS) (G :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASQ4
    (I0 N0 Z PP N0IN DMIN DMIN1 DMIN2 DN DN1 DN2 TAU TTYPE G)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ4)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0IN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF19095 ':INT32)
                              (N0-REF19096 ':INT32)
                              (PP-REF19098 ':INT32)
                              (N0IN-REF19099 ':INT32)
                              (DMIN-REF19100 ':FLOAT)
                              (DMIN1-REF19101 ':FLOAT)
                              (DMIN2-REF19102 ':FLOAT)
                              (DN-REF19103 ':FLOAT)
                              (DN1-REF19104 ':FLOAT)
                              (DN2-REF19105 ':FLOAT)
                              (TAU-REF19106 ':FLOAT)
                              (TTYPE-REF19107 ':INT32)
                              (G-REF19108 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF19095 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF19096 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF19098 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0IN-REF19099 :INT32) N0IN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF19100 :FLOAT) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF19101 :FLOAT) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF19102 :FLOAT) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF19103 :FLOAT) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF19104 :FLOAT) DN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF19105 :FLOAT) DN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF19106 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF19107 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF19108 :FLOAT) G)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF19097 Z))
      (%%SLASQ4 I0-REF19095 N0-REF19096 Z-REF19097 PP-REF19098
       N0IN-REF19099 DMIN-REF19100 DMIN1-REF19101 DMIN2-REF19102
       DN-REF19103 DN1-REF19104 DN2-REF19105 TAU-REF19106
       TTYPE-REF19107 G-REF19108))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETRI_ROOK "chetri_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRI_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19110 ':INT32)
                              (LDA-REF19112 ':INT32)
                              (INFO-REF19115 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19110 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19112 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19115 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19111 A)
                                            (IPIV-REF19113 IPIV)
                                            (WORK-REF19114 WORK))
      (%%CHETRI_ROOK UPLO N-REF19110 A-REF19111 LDA-REF19112
       IPIV-REF19113 WORK-REF19114 INFO-REF19115))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLANSY "zlansy_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLANSY (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANSY)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19118 ':INT32)
                              (LDA-REF19120 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19118 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19120 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19119 A)
                                            (WORK-REF19121 WORK))
      (%%ZLANSY NORM UPLO N-REF19118 A-REF19119 LDA-REF19120
       WORK-REF19121))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAQSB "dlaqsb_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAQSB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQSB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19123 ':INT32)
                              (KD-REF19124 ':INT32)
                              (LDAB-REF19126 ':INT32)
                              (SCOND-REF19128 ':DOUBLE)
                              (AMAX-REF19129 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19123 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF19124 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19126 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF19128 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF19129 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19125 AB)
                                            (S-REF19127 S))
      (%%DLAQSB UPLO N-REF19123 KD-REF19124 AB-REF19125 LDAB-REF19126
       S-REF19127 SCOND-REF19128 AMAX-REF19129 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPTRFS "zptrfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (DF :FOREIGN-ADDRESS) (EF :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPTRFS
    (UPLO N NRHS D E DF EF B LDB X LDX FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    EF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19132 ':INT32)
                              (NRHS-REF19133 ':INT32)
                              (LDB-REF19139 ':INT32)
                              (LDX-REF19141 ':INT32)
                              (INFO-REF19146 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19132 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19133 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19139 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19141 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19146 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF19134 D)
                                            (E-REF19135 E)
                                            (DF-REF19136 DF)
                                            (EF-REF19137 EF)
                                            (B-REF19138 B)
                                            (X-REF19140 X)
                                            (FERR-REF19142 FERR)
                                            (BERR-REF19143 BERR)
                                            (WORK-REF19144 WORK)
                                            (RWORK-REF19145 RWORK))
      (%%ZPTRFS UPLO N-REF19132 NRHS-REF19133 D-REF19134 E-REF19135
       DF-REF19136 EF-REF19137 B-REF19138 LDB-REF19139 X-REF19140
       LDX-REF19141 FERR-REF19142 BERR-REF19143 WORK-REF19144
       RWORK-REF19145 INFO-REF19146))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYSVXX "ssysvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RPVGRW :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYSVXX
    (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX RCOND
     RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
     WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19149 ':INT32)
                              (NRHS-REF19150 ':INT32)
                              (LDA-REF19152 ':INT32)
                              (LDAF-REF19154 ':INT32)
                              (LDB-REF19159 ':INT32)
                              (LDX-REF19161 ':INT32)
                              (RCOND-REF19162 ':FLOAT)
                              (RPVGRW-REF19163 ':FLOAT)
                              (N_ERR_BNDS-REF19165 ':INT32)
                              (NPARAMS-REF19168 ':INT32)
                              (INFO-REF19172 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19149 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19150 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19152 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19154 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19159 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19161 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19162 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF19163 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF19165 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF19168 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19172 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19151 A)
                                            (AF-REF19153 AF)
                                            (IPIV-REF19155 IPIV)
                                            (S-REF19157 S)
                                            (B-REF19158 B)
                                            (X-REF19160 X)
                                            (BERR-REF19164 BERR)
                                            (ERR_BNDS_NORM-REF19166
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF19167
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF19169 PARAMS)
                                            (WORK-REF19170 WORK)
                                            (IWORK-REF19171 IWORK))
      (%%SSYSVXX FACT UPLO N-REF19149 NRHS-REF19150 A-REF19151
       LDA-REF19152 AF-REF19153 LDAF-REF19154 IPIV-REF19155 EQUED
       S-REF19157 B-REF19158 LDB-REF19159 X-REF19160 LDX-REF19161
       RCOND-REF19162 RPVGRW-REF19163 BERR-REF19164 N_ERR_BNDS-REF19165
       ERR_BNDS_NORM-REF19166 ERR_BNDS_COMP-REF19167 NPARAMS-REF19168
       PARAMS-REF19169 WORK-REF19170 IWORK-REF19171 INFO-REF19172))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEQLF "zgeqlf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEQLF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQLF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19173 ':INT32) (N-REF19174 ':INT32)
                              (LDA-REF19176 ':INT32)
                              (LWORK-REF19179 ':INT32)
                              (INFO-REF19180 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19173 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19174 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19176 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19179 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19180 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19175 A)
                                            (TAU-REF19177 TAU)
                                            (WORK-REF19178 WORK))
      (%%ZGEQLF M-REF19173 N-REF19174 A-REF19175 LDA-REF19176
       TAU-REF19177 WORK-REF19178 LWORK-REF19179 INFO-REF19180))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAQTR "dlaqtr_")
  ((LTRAN :FOREIGN-ADDRESS) (LREAL :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAQTR (LTRAN LREAL N T LDT B W SCALE X WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQTR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRAN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LREAL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT W)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRAN-REF19181 ':INT32)
                              (LREAL-REF19182 ':INT32)
                              (N-REF19183 ':INT32)
                              (LDT-REF19185 ':INT32)
                              (W-REF19187 ':DOUBLE)
                              (SCALE-REF19188 ':DOUBLE)
                              (INFO-REF19191 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRAN-REF19181 :INT32) LTRAN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LREAL-REF19182 :INT32) LREAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19183 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF19185 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF W-REF19187 :DOUBLE) W)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF19188 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19191 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF19184 T)
                                            (B-REF19186 B)
                                            (X-REF19189 X)
                                            (WORK-REF19190 WORK))
      (%%DLAQTR LTRAN-REF19181 LREAL-REF19182 N-REF19183 T-REF19184
       LDT-REF19185 B-REF19186 W-REF19187 SCALE-REF19188 X-REF19189
       WORK-REF19190 INFO-REF19191))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGGEV "dggev_")
  ((JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (ALPHAR :FOREIGN-ADDRESS) (ALPHAI :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGGEV
    (JOBVL JOBVR N A LDA B LDB ALPHAR ALPHAI BETA VL LDVL VR LDVR WORK
     LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19194 ':INT32)
                              (LDA-REF19196 ':INT32)
                              (LDB-REF19198 ':INT32)
                              (LDVL-REF19203 ':INT32)
                              (LDVR-REF19205 ':INT32)
                              (LWORK-REF19207 ':INT32)
                              (INFO-REF19208 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19194 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19196 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19198 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF19203 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF19205 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19207 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19208 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19195 A)
                                            (B-REF19197 B)
                                            (ALPHAR-REF19199 ALPHAR)
                                            (ALPHAI-REF19200 ALPHAI)
                                            (BETA-REF19201 BETA)
                                            (VL-REF19202 VL)
                                            (VR-REF19204 VR)
                                            (WORK-REF19206 WORK))
      (%%DGGEV JOBVL JOBVR N-REF19194 A-REF19195 LDA-REF19196
       B-REF19197 LDB-REF19198 ALPHAR-REF19199 ALPHAI-REF19200
       BETA-REF19201 VL-REF19202 LDVL-REF19203 VR-REF19204
       LDVR-REF19205 WORK-REF19206 LWORK-REF19207 INFO-REF19208))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYSV_AA "csysv_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYSV_AA
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSV_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19210 ':INT32)
                              (NRHS-REF19211 ':INT32)
                              (LDA-REF19213 ':INT32)
                              (LDB-REF19216 ':INT32)
                              (LWORK-REF19218 ':INT32)
                              (INFO-REF19219 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19210 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19211 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19213 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19216 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19218 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19219 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19212 A)
                                            (IPIV-REF19214 IPIV)
                                            (B-REF19215 B)
                                            (WORK-REF19217 WORK))
      (%%CSYSV_AA UPLO N-REF19210 NRHS-REF19211 A-REF19212 LDA-REF19213
       IPIV-REF19214 B-REF19215 LDB-REF19216 WORK-REF19217
       LWORK-REF19218 INFO-REF19219))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSBTRD "dsbtrd_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSBTRD (VECT UPLO N KD AB LDAB D E Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBTRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19222 ':INT32)
                              (KD-REF19223 ':INT32)
                              (LDAB-REF19225 ':INT32)
                              (LDQ-REF19229 ':INT32)
                              (INFO-REF19231 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19222 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF19223 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19225 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF19229 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19231 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19224 AB)
                                            (D-REF19226 D)
                                            (E-REF19227 E)
                                            (Q-REF19228 Q)
                                            (WORK-REF19230 WORK))
      (%%DSBTRD VECT UPLO N-REF19222 KD-REF19223 AB-REF19224
       LDAB-REF19225 D-REF19226 E-REF19227 Q-REF19228 LDQ-REF19229
       WORK-REF19230 INFO-REF19231))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNMQL "zunmql_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNMQL
    (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMQL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19234 ':INT32) (N-REF19235 ':INT32)
                              (K-REF19236 ':INT32)
                              (LDA-REF19238 ':INT32)
                              (LDC-REF19241 ':INT32)
                              (LWORK-REF19243 ':INT32)
                              (INFO-REF19244 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19234 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19235 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF19236 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19238 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF19241 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19243 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19244 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19237 A)
                                            (TAU-REF19239 TAU)
                                            (C-REF19240 C)
                                            (WORK-REF19242 WORK))
      (%%ZUNMQL SIDE TRANS M-REF19234 N-REF19235 K-REF19236 A-REF19237
       LDA-REF19238 TAU-REF19239 C-REF19240 LDC-REF19241 WORK-REF19242
       LWORK-REF19243 INFO-REF19244))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ILACLR "ilaclr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS))
  :RETURNING :INT :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ILACLR (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILACLR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19245 ':INT32) (N-REF19246 ':INT32)
                              (LDA-REF19248 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19245 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19246 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19248 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19247 A))
      (%%ILACLR M-REF19245 N-REF19246 A-REF19247 LDA-REF19248))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAQR4 "slaqr4_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (WR :FOREIGN-ADDRESS)
   (WI :FOREIGN-ADDRESS) (ILOZ :FOREIGN-ADDRESS)
   (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAQR4
    (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQR4)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF19249 ':INT32)
                              (WANTZ-REF19250 ':INT32)
                              (N-REF19251 ':INT32)
                              (ILO-REF19252 ':INT32)
                              (IHI-REF19253 ':INT32)
                              (LDH-REF19255 ':INT32)
                              (ILOZ-REF19258 ':INT32)
                              (IHIZ-REF19259 ':INT32)
                              (LDZ-REF19261 ':INT32)
                              (LWORK-REF19263 ':INT32)
                              (INFO-REF19264 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF19249 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF19250 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19251 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF19252 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF19253 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF19255 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF19258 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF19259 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19261 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19263 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19264 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF19254 H)
                                            (WR-REF19256 WR)
                                            (WI-REF19257 WI)
                                            (Z-REF19260 Z)
                                            (WORK-REF19262 WORK))
      (%%SLAQR4 WANTT-REF19249 WANTZ-REF19250 N-REF19251 ILO-REF19252
       IHI-REF19253 H-REF19254 LDH-REF19255 WR-REF19256 WI-REF19257
       ILOZ-REF19258 IHIZ-REF19259 Z-REF19260 LDZ-REF19261
       WORK-REF19262 LWORK-REF19263 INFO-REF19264))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASD0 "dlasd0_")
  ((N :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (SMLSIZ :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASD0
    (N SQRE D E U LDU VT LDVT SMLSIZ IWORK WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19265 ':INT32)
                              (SQRE-REF19266 ':INT32)
                              (LDU-REF19270 ':INT32)
                              (LDVT-REF19272 ':INT32)
                              (SMLSIZ-REF19273 ':INT32)
                              (INFO-REF19276 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19265 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF19266 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF19270 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF19272 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF19273 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19276 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF19267 D)
                                            (E-REF19268 E)
                                            (U-REF19269 U)
                                            (VT-REF19271 VT)
                                            (IWORK-REF19274 IWORK)
                                            (WORK-REF19275 WORK))
      (%%DLASD0 N-REF19265 SQRE-REF19266 D-REF19267 E-REF19268
       U-REF19269 LDU-REF19270 VT-REF19271 LDVT-REF19272
       SMLSIZ-REF19273 IWORK-REF19274 WORK-REF19275 INFO-REF19276))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPSTF2 "zpstf2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (PIV :FOREIGN-ADDRESS)
   (RANK :FOREIGN-ADDRESS) (TOL :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPSTF2 (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPSTF2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19278 ':INT32)
                              (LDA-REF19280 ':INT32)
                              (RANK-REF19282 ':INT32)
                              (TOL-REF19283 ':DOUBLE)
                              (INFO-REF19285 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19278 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19280 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF19282 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF19283 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19285 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19279 A)
                                            (PIV-REF19281 PIV)
                                            (WORK-REF19284 WORK))
      (%%ZPSTF2 UPLO N-REF19278 A-REF19279 LDA-REF19280 PIV-REF19281
       RANK-REF19282 TOL-REF19283 WORK-REF19284 INFO-REF19285))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGGGLM "dggglm_")
  ((N :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGGGLM (N M P A LDA B LDB D X Y WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGGLM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19286 ':INT32) (M-REF19287 ':INT32)
                              (P-REF19288 ':INT32)
                              (LDA-REF19290 ':INT32)
                              (LDB-REF19292 ':INT32)
                              (LWORK-REF19297 ':INT32)
                              (INFO-REF19298 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19286 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19287 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF19288 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19290 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19292 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19297 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19298 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19289 A)
                                            (B-REF19291 B)
                                            (D-REF19293 D)
                                            (X-REF19294 X)
                                            (Y-REF19295 Y)
                                            (WORK-REF19296 WORK))
      (%%DGGGLM N-REF19286 M-REF19287 P-REF19288 A-REF19289
       LDA-REF19290 B-REF19291 LDB-REF19292 D-REF19293 X-REF19294
       Y-REF19295 WORK-REF19296 LWORK-REF19297 INFO-REF19298))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLANHF "zlanhf_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLANHF (NORM TRANSR UPLO N A WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19302 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19302 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19303 A)
                                            (WORK-REF19304 WORK))
      (%%ZLANHF NORM TRANSR UPLO N-REF19302 A-REF19303 WORK-REF19304))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAQHB "claqhb_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAQHB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQHB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19306 ':INT32)
                              (KD-REF19307 ':INT32)
                              (LDAB-REF19309 ':INT32)
                              (SCOND-REF19311 ':FLOAT)
                              (AMAX-REF19312 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19306 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF19307 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19309 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF19311 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF19312 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19308 AB)
                                            (S-REF19310 S))
      (%%CLAQHB UPLO N-REF19306 KD-REF19307 AB-REF19308 LDAB-REF19309
       S-REF19310 SCOND-REF19311 AMAX-REF19312 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSPRFS "zsprfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSPRFS
    (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AFP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19315 ':INT32)
                              (NRHS-REF19316 ':INT32)
                              (LDB-REF19321 ':INT32)
                              (LDX-REF19323 ':INT32)
                              (INFO-REF19328 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19315 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19316 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19321 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19323 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19328 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19317 AP)
                                            (AFP-REF19318 AFP)
                                            (IPIV-REF19319 IPIV)
                                            (B-REF19320 B)
                                            (X-REF19322 X)
                                            (FERR-REF19324 FERR)
                                            (BERR-REF19325 BERR)
                                            (WORK-REF19326 WORK)
                                            (RWORK-REF19327 RWORK))
      (%%ZSPRFS UPLO N-REF19315 NRHS-REF19316 AP-REF19317 AFP-REF19318
       IPIV-REF19319 B-REF19320 LDB-REF19321 X-REF19322 LDX-REF19323
       FERR-REF19324 BERR-REF19325 WORK-REF19326 RWORK-REF19327
       INFO-REF19328))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_GBRCOND_X "cla_gbrcond_x_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_GBRCOND_X
    (TRANS N KL KU AB LDAB AFB LDAFB IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GBRCOND_X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19330 ':INT32)
                              (KL-REF19331 ':INT32)
                              (KU-REF19332 ':INT32)
                              (LDAB-REF19334 ':INT32)
                              (LDAFB-REF19336 ':INT32)
                              (INFO-REF19339 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19330 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19331 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19332 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19334 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19336 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19339 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19333 AB)
                                            (AFB-REF19335 AFB)
                                            (IPIV-REF19337 IPIV)
                                            (X-REF19338 X)
                                            (WORK-REF19340 WORK)
                                            (RWORK-REF19341 RWORK))
      (%%CLA_GBRCOND_X TRANS N-REF19330 KL-REF19331 KU-REF19332
       AB-REF19333 LDAB-REF19334 AFB-REF19335 LDAFB-REF19336
       IPIV-REF19337 X-REF19338 INFO-REF19339 WORK-REF19340
       RWORK-REF19341))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ICMAX1 "icmax1_")
  ((N :FOREIGN-ADDRESS) (CX :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS))
  :RETURNING :INT :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ICMAX1 (N CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ICMAX1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    CX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19342 ':INT32)
                              (INCX-REF19344 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19342 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF19344 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF19343 CX))
      (%%ICMAX1 N-REF19342 CX-REF19343 INCX-REF19344))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLALSD "zlalsd_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SMLSIZ :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RANK :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLALSD
    (UPLO SMLSIZ N NRHS D E B LDB RCOND RANK WORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLALSD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF19346 ':INT32)
                              (N-REF19347 ':INT32)
                              (NRHS-REF19348 ':INT32)
                              (LDB-REF19352 ':INT32)
                              (RCOND-REF19353 ':DOUBLE)
                              (RANK-REF19354 ':INT32)
                              (INFO-REF19358 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF19346 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19347 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19348 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19352 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19353 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF19354 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19358 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF19349 D)
                                            (E-REF19350 E)
                                            (B-REF19351 B)
                                            (WORK-REF19355 WORK)
                                            (RWORK-REF19356 RWORK)
                                            (IWORK-REF19357 IWORK))
      (%%ZLALSD UPLO SMLSIZ-REF19346 N-REF19347 NRHS-REF19348
       D-REF19349 E-REF19350 B-REF19351 LDB-REF19352 RCOND-REF19353
       RANK-REF19354 WORK-REF19355 RWORK-REF19356 IWORK-REF19357
       INFO-REF19358))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLASWLQ "claswlq_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLASWLQ (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASWLQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19359 ':INT32) (N-REF19360 ':INT32)
                              (MB-REF19361 ':INT32)
                              (NB-REF19362 ':INT32)
                              (LDA-REF19364 ':INT32)
                              (LDT-REF19366 ':INT32)
                              (LWORK-REF19368 ':INT32)
                              (INFO-REF19369 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19359 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19360 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF19361 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF19362 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19364 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF19366 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19368 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19369 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19363 A)
                                            (T-REF19365 T)
                                            (WORK-REF19367 WORK))
      (%%CLASWLQ M-REF19359 N-REF19360 MB-REF19361 NB-REF19362
       A-REF19363 LDA-REF19364 T-REF19365 LDT-REF19366 WORK-REF19367
       LWORK-REF19368 INFO-REF19369))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGBTRS "zgbtrs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGBTRS (TRANS N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19371 ':INT32)
                              (KL-REF19372 ':INT32)
                              (KU-REF19373 ':INT32)
                              (NRHS-REF19374 ':INT32)
                              (LDAB-REF19376 ':INT32)
                              (LDB-REF19379 ':INT32)
                              (INFO-REF19380 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19371 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19372 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19373 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19374 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19376 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19379 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19380 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19375 AB)
                                            (IPIV-REF19377 IPIV)
                                            (B-REF19378 B))
      (%%ZGBTRS TRANS N-REF19371 KL-REF19372 KU-REF19373 NRHS-REF19374
       AB-REF19375 LDAB-REF19376 IPIV-REF19377 B-REF19378 LDB-REF19379
       INFO-REF19380))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ILACLC "ilaclc_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS))
  :RETURNING :INT :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ILACLC (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILACLC)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19381 ':INT32) (N-REF19382 ':INT32)
                              (LDA-REF19384 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19381 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19382 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19384 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19383 A))
      (%%ILACLC M-REF19381 N-REF19382 A-REF19383 LDA-REF19384))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYSWAPR "csyswapr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (I1 :FOREIGN-ADDRESS)
   (I2 :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYSWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSWAPR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19386 ':INT32)
                              (LDA-REF19388 ':INT32)
                              (I1-REF19389 ':INT32)
                              (I2-REF19390 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19386 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19388 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF19389 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF19390 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19387 A))
      (%%CSYSWAPR UPLO N-REF19386 A-REF19387 LDA-REF19388 I1-REF19389
       I2-REF19390))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPTTRS "zpttrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPTTRS (UPLO N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19392 ':INT32)
                              (NRHS-REF19393 ':INT32)
                              (LDB-REF19397 ':INT32)
                              (INFO-REF19398 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19392 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19393 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19397 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19398 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF19394 D)
                                            (E-REF19395 E)
                                            (B-REF19396 B))
      (%%ZPTTRS UPLO N-REF19392 NRHS-REF19393 D-REF19394 E-REF19395
       B-REF19396 LDB-REF19397 INFO-REF19398))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGELQF "zgelqf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGELQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELQF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19399 ':INT32) (N-REF19400 ':INT32)
                              (LDA-REF19402 ':INT32)
                              (LWORK-REF19405 ':INT32)
                              (INFO-REF19406 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19399 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19400 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19402 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19405 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19406 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19401 A)
                                            (TAU-REF19403 TAU)
                                            (WORK-REF19404 WORK))
      (%%ZGELQF M-REF19399 N-REF19400 A-REF19401 LDA-REF19402
       TAU-REF19403 WORK-REF19404 LWORK-REF19405 INFO-REF19406))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLASR "zlasr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (PIVOT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLASR (SIDE PIVOT DIRECT M N C S A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING PIVOT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19410 ':INT32) (N-REF19411 ':INT32)
                              (LDA-REF19415 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19410 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19411 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19415 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF19412 C)
                                            (S-REF19413 S)
                                            (A-REF19414 A))
      (%%ZLASR SIDE PIVOT DIRECT M-REF19410 N-REF19411 C-REF19412
       S-REF19413 A-REF19414 LDA-REF19415))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STPCON "stpcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STPCON (NORM UPLO DIAG N AP RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19419 ':INT32)
                              (RCOND-REF19421 ':FLOAT)
                              (INFO-REF19424 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19419 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19421 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19424 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19420 AP)
                                            (WORK-REF19422 WORK)
                                            (IWORK-REF19423 IWORK))
      (%%STPCON NORM UPLO DIAG N-REF19419 AP-REF19420 RCOND-REF19421
       WORK-REF19422 IWORK-REF19423 INFO-REF19424))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLATRD "dlatrd_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (LDW :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLATRD (UPLO N NB A LDA E TAU W LDW)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19426 ':INT32)
                              (NB-REF19427 ':INT32)
                              (LDA-REF19429 ':INT32)
                              (LDW-REF19433 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19426 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF19427 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19429 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF19433 :INT32) LDW)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19428 A)
                                            (E-REF19430 E)
                                            (TAU-REF19431 TAU)
                                            (W-REF19432 W))
      (%%DLATRD UPLO N-REF19426 NB-REF19427 A-REF19428 LDA-REF19429
       E-REF19430 TAU-REF19431 W-REF19432 LDW-REF19433))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORM2R "sorm2r_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORM2R (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORM2R)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19436 ':INT32) (N-REF19437 ':INT32)
                              (K-REF19438 ':INT32)
                              (LDA-REF19440 ':INT32)
                              (LDC-REF19443 ':INT32)
                              (INFO-REF19445 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19436 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19437 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF19438 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19440 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF19443 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19445 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19439 A)
                                            (TAU-REF19441 TAU)
                                            (C-REF19442 C)
                                            (WORK-REF19444 WORK))
      (%%SORM2R SIDE TRANS M-REF19436 N-REF19437 K-REF19438 A-REF19439
       LDA-REF19440 TAU-REF19441 C-REF19442 LDC-REF19443 WORK-REF19444
       INFO-REF19445))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAEV2 "claev2_")
  ((A :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (RT1 :FOREIGN-ADDRESS) (RT2 :FOREIGN-ADDRESS) (CS1 :FOREIGN-ADDRESS)
   (SN1 :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAEV2 (A B C RT1 RT2 CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAEV2)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS1)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF19446
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (B-REF19447
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (C-REF19448
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (RT1-REF19449 ':FLOAT)
                              (RT2-REF19450 ':FLOAT)
                              (CS1-REF19451 ':FLOAT)
                              (SN1-REF19452
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              A-REF19446
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART A)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              B-REF19447
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART B)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              C-REF19448
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART C)))
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF19449 :FLOAT) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF19450 :FLOAT) RT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF19451 :FLOAT) CS1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              SN1-REF19452
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN1)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART SN1)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CLAEV2 A-REF19446 B-REF19447 C-REF19448 RT1-REF19449
       RT2-REF19450 CS1-REF19451 SN1-REF19452))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DHGEQZ "dhgeqz_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (ALPHAR :FOREIGN-ADDRESS)
   (ALPHAI :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DHGEQZ
    (JOB COMPQ COMPZ N ILO IHI H LDH T LDT ALPHAR ALPHAI BETA Q LDQ Z
     LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DHGEQZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19456 ':INT32)
                              (ILO-REF19457 ':INT32)
                              (IHI-REF19458 ':INT32)
                              (LDH-REF19460 ':INT32)
                              (LDT-REF19462 ':INT32)
                              (LDQ-REF19467 ':INT32)
                              (LDZ-REF19469 ':INT32)
                              (LWORK-REF19471 ':INT32)
                              (INFO-REF19472 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19456 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF19457 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF19458 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF19460 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF19462 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF19467 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19469 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19471 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19472 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF19459 H)
                                            (T-REF19461 T)
                                            (ALPHAR-REF19463 ALPHAR)
                                            (ALPHAI-REF19464 ALPHAI)
                                            (BETA-REF19465 BETA)
                                            (Q-REF19466 Q)
                                            (Z-REF19468 Z)
                                            (WORK-REF19470 WORK))
      (%%DHGEQZ JOB COMPQ COMPZ N-REF19456 ILO-REF19457 IHI-REF19458
       H-REF19459 LDH-REF19460 T-REF19461 LDT-REF19462 ALPHAR-REF19463
       ALPHAI-REF19464 BETA-REF19465 Q-REF19466 LDQ-REF19467 Z-REF19468
       LDZ-REF19469 WORK-REF19470 LWORK-REF19471 INFO-REF19472))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGTTRF "cgttrf_")
  ((N :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (DU :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGTTRF (N DL D DU DU2 IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTTRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19473 ':INT32)
                              (INFO-REF19479 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19473 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19479 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF19474 DL)
                                            (D-REF19475 D)
                                            (DU-REF19476 DU)
                                            (DU2-REF19477 DU2)
                                            (IPIV-REF19478 IPIV))
      (%%CGTTRF N-REF19473 DL-REF19474 D-REF19475 DU-REF19476
       DU2-REF19477 IPIV-REF19478 INFO-REF19479))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGTTRS "dgttrs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGTTRS (TRANS N NRHS DL D DU DU2 IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19481 ':INT32)
                              (NRHS-REF19482 ':INT32)
                              (LDB-REF19489 ':INT32)
                              (INFO-REF19490 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19481 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19482 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19489 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19490 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF19483 DL)
                                            (D-REF19484 D)
                                            (DU-REF19485 DU)
                                            (DU2-REF19486 DU2)
                                            (IPIV-REF19487 IPIV)
                                            (B-REF19488 B))
      (%%DGTTRS TRANS N-REF19481 NRHS-REF19482 DL-REF19483 D-REF19484
       DU-REF19485 DU2-REF19486 IPIV-REF19487 B-REF19488 LDB-REF19489
       INFO-REF19490))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_HERPVGRW "cla_herpvgrw_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_HERPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_HERPVGRW)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19492 ':INT32)
                              (INFO-REF19493 ':INT32)
                              (LDA-REF19495 ':INT32)
                              (LDAF-REF19497 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19492 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19493 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19495 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19497 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19494 A)
                                            (AF-REF19496 AF)
                                            (IPIV-REF19498 IPIV)
                                            (WORK-REF19499 WORK))
      (%%CLA_HERPVGRW UPLO N-REF19492 INFO-REF19493 A-REF19494
       LDA-REF19495 AF-REF19496 LDAF-REF19497 IPIV-REF19498
       WORK-REF19499))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPOSVX "cposvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPOSVX
    (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND FERR BERR
     WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19502 ':INT32)
                              (NRHS-REF19503 ':INT32)
                              (LDA-REF19505 ':INT32)
                              (LDAF-REF19507 ':INT32)
                              (LDB-REF19511 ':INT32)
                              (LDX-REF19513 ':INT32)
                              (RCOND-REF19514 ':FLOAT)
                              (INFO-REF19519 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19502 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19503 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19505 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19507 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19511 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19513 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19514 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19519 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19504 A)
                                            (AF-REF19506 AF)
                                            (S-REF19509 S)
                                            (B-REF19510 B)
                                            (X-REF19512 X)
                                            (FERR-REF19515 FERR)
                                            (BERR-REF19516 BERR)
                                            (WORK-REF19517 WORK)
                                            (RWORK-REF19518 RWORK))
      (%%CPOSVX FACT UPLO N-REF19502 NRHS-REF19503 A-REF19504
       LDA-REF19505 AF-REF19506 LDAF-REF19507 EQUED S-REF19509
       B-REF19510 LDB-REF19511 X-REF19512 LDX-REF19513 RCOND-REF19514
       FERR-REF19515 BERR-REF19516 WORK-REF19517 RWORK-REF19518
       INFO-REF19519))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGBEQUB "dgbequb_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (ROWCND :FOREIGN-ADDRESS)
   (COLCND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGBEQUB
    (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBEQUB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19520 ':INT32) (N-REF19521 ':INT32)
                              (KL-REF19522 ':INT32)
                              (KU-REF19523 ':INT32)
                              (LDAB-REF19525 ':INT32)
                              (ROWCND-REF19528 ':DOUBLE)
                              (COLCND-REF19529 ':DOUBLE)
                              (AMAX-REF19530 ':DOUBLE)
                              (INFO-REF19531 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19520 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19521 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19522 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19523 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19525 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF19528 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF19529 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF19530 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19531 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19524 AB)
                                            (R-REF19526 R)
                                            (C-REF19527 C))
      (%%DGBEQUB M-REF19520 N-REF19521 KL-REF19522 KU-REF19523
       AB-REF19524 LDAB-REF19525 R-REF19526 C-REF19527 ROWCND-REF19528
       COLCND-REF19529 AMAX-REF19530 INFO-REF19531))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHEGV "zhegv_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHEGV
    (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19532 ':INT32)
                              (N-REF19535 ':INT32)
                              (LDA-REF19537 ':INT32)
                              (LDB-REF19539 ':INT32)
                              (LWORK-REF19542 ':INT32)
                              (INFO-REF19544 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19532 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19535 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19537 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19539 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19542 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19544 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19536 A)
                                            (B-REF19538 B)
                                            (W-REF19540 W)
                                            (WORK-REF19541 WORK)
                                            (RWORK-REF19543 RWORK))
      (%%ZHEGV ITYPE-REF19532 JOBZ UPLO N-REF19535 A-REF19536
       LDA-REF19537 B-REF19538 LDB-REF19539 W-REF19540 WORK-REF19541
       LWORK-REF19542 RWORK-REF19543 INFO-REF19544))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGBEQUB "cgbequb_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (ROWCND :FOREIGN-ADDRESS)
   (COLCND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGBEQUB
    (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBEQUB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19545 ':INT32) (N-REF19546 ':INT32)
                              (KL-REF19547 ':INT32)
                              (KU-REF19548 ':INT32)
                              (LDAB-REF19550 ':INT32)
                              (ROWCND-REF19553 ':FLOAT)
                              (COLCND-REF19554 ':FLOAT)
                              (AMAX-REF19555 ':FLOAT)
                              (INFO-REF19556 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19545 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19546 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19547 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19548 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19550 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF19553 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF19554 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF19555 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19556 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19549 AB)
                                            (R-REF19551 R)
                                            (C-REF19552 C))
      (%%CGBEQUB M-REF19545 N-REF19546 KL-REF19547 KU-REF19548
       AB-REF19549 LDAB-REF19550 R-REF19551 C-REF19552 ROWCND-REF19553
       COLCND-REF19554 AMAX-REF19555 INFO-REF19556))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLARTG "clartg_")
  ((F :FOREIGN-ADDRESS) (G :FOREIGN-ADDRESS) (CS :FOREIGN-ADDRESS)
   (SN :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLARTG (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARTG)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) F)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) G)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SN)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF19557
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (G-REF19558
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (CS-REF19559 ':FLOAT)
                              (SN-REF19560
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (R-REF19561
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              F-REF19557
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART F)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART F)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              G-REF19558
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART G)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART G)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF19559 :FLOAT) CS)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              SN-REF19560
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART SN)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              R-REF19561
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART R)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART R)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CLARTG F-REF19557 G-REF19558 CS-REF19559 SN-REF19560
       R-REF19561))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGGEVX "dggevx_")
  ((BALANC (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SENSE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (ALPHAR :FOREIGN-ADDRESS) (ALPHAI :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS)
   (IHI :FOREIGN-ADDRESS) (LSCALE :FOREIGN-ADDRESS)
   (RSCALE :FOREIGN-ADDRESS) (ABNRM :FOREIGN-ADDRESS)
   (BBNRM :FOREIGN-ADDRESS) (RCONDE :FOREIGN-ADDRESS)
   (RCONDV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (BWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGGEVX
    (BALANC JOBVL JOBVR SENSE N A LDA B LDB ALPHAR ALPHAI BETA VL LDVL
     VR LDVR ILO IHI LSCALE RSCALE ABNRM BBNRM RCONDE RCONDV WORK LWORK
     IWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LSCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RSCALE)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABNRM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BBNRM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RCONDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RCONDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19566 ':INT32)
                              (LDA-REF19568 ':INT32)
                              (LDB-REF19570 ':INT32)
                              (LDVL-REF19575 ':INT32)
                              (LDVR-REF19577 ':INT32)
                              (ILO-REF19578 ':INT32)
                              (IHI-REF19579 ':INT32)
                              (ABNRM-REF19582 ':DOUBLE)
                              (BBNRM-REF19583 ':DOUBLE)
                              (LWORK-REF19587 ':INT32)
                              (INFO-REF19590 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19566 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19568 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19570 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF19575 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF19577 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF19578 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF19579 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF19582 :DOUBLE) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF19583 :DOUBLE) BBNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19587 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19590 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19567 A)
                                            (B-REF19569 B)
                                            (ALPHAR-REF19571 ALPHAR)
                                            (ALPHAI-REF19572 ALPHAI)
                                            (BETA-REF19573 BETA)
                                            (VL-REF19574 VL)
                                            (VR-REF19576 VR)
                                            (LSCALE-REF19580 LSCALE)
                                            (RSCALE-REF19581 RSCALE)
                                            (RCONDE-REF19584 RCONDE)
                                            (RCONDV-REF19585 RCONDV)
                                            (WORK-REF19586 WORK)
                                            (IWORK-REF19588 IWORK)
                                            (BWORK-REF19589 BWORK))
      (%%DGGEVX BALANC JOBVL JOBVR SENSE N-REF19566 A-REF19567
       LDA-REF19568 B-REF19569 LDB-REF19570 ALPHAR-REF19571
       ALPHAI-REF19572 BETA-REF19573 VL-REF19574 LDVL-REF19575
       VR-REF19576 LDVR-REF19577 ILO-REF19578 IHI-REF19579
       LSCALE-REF19580 RSCALE-REF19581 ABNRM-REF19582 BBNRM-REF19583
       RCONDE-REF19584 RCONDV-REF19585 WORK-REF19586 LWORK-REF19587
       IWORK-REF19588 BWORK-REF19589 INFO-REF19590))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHPGST "zhpgst_")
  ((ITYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (BP :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHPGST (ITYPE UPLO N AP BP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPGST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    BP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19591 ':INT32)
                              (N-REF19593 ':INT32)
                              (INFO-REF19596 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19591 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19593 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19596 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19594 AP)
                                            (BP-REF19595 BP))
      (%%ZHPGST ITYPE-REF19591 UPLO N-REF19593 AP-REF19594 BP-REF19595
       INFO-REF19596))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSBEV_2STAGE "dsbev_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSBEV_2STAGE
    (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEV_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19599 ':INT32)
                              (KD-REF19600 ':INT32)
                              (LDAB-REF19602 ':INT32)
                              (LDZ-REF19605 ':INT32)
                              (LWORK-REF19607 ':INT32)
                              (INFO-REF19608 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19599 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF19600 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19602 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19605 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19607 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19608 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19601 AB)
                                            (W-REF19603 W)
                                            (Z-REF19604 Z)
                                            (WORK-REF19606 WORK))
      (%%DSBEV_2STAGE JOBZ UPLO N-REF19599 KD-REF19600 AB-REF19601
       LDAB-REF19602 W-REF19603 Z-REF19604 LDZ-REF19605 WORK-REF19606
       LWORK-REF19607 INFO-REF19608))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEQR2 "dgeqr2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEQR2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQR2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19609 ':INT32) (N-REF19610 ':INT32)
                              (LDA-REF19612 ':INT32)
                              (INFO-REF19615 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19609 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19610 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19612 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19615 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19611 A)
                                            (TAU-REF19613 TAU)
                                            (WORK-REF19614 WORK))
      (%%DGEQR2 M-REF19609 N-REF19610 A-REF19611 LDA-REF19612
       TAU-REF19613 WORK-REF19614 INFO-REF19615))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTBRFS "ztbrfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTBRFS
    (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB X LDX FERR BERR WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTBRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19619 ':INT32)
                              (KD-REF19620 ':INT32)
                              (NRHS-REF19621 ':INT32)
                              (LDAB-REF19623 ':INT32)
                              (LDB-REF19625 ':INT32)
                              (LDX-REF19627 ':INT32)
                              (INFO-REF19632 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19619 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF19620 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19621 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19623 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19625 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19627 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19632 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19622 AB)
                                            (B-REF19624 B)
                                            (X-REF19626 X)
                                            (FERR-REF19628 FERR)
                                            (BERR-REF19629 BERR)
                                            (WORK-REF19630 WORK)
                                            (RWORK-REF19631 RWORK))
      (%%ZTBRFS UPLO TRANS DIAG N-REF19619 KD-REF19620 NRHS-REF19621
       AB-REF19622 LDAB-REF19623 B-REF19624 LDB-REF19625 X-REF19626
       LDX-REF19627 FERR-REF19628 BERR-REF19629 WORK-REF19630
       RWORK-REF19631 INFO-REF19632))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_GEAMV "cla_geamv_")
  ((TRANS :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_GEAMV
    (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GEAMV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF19633 ':INT32)
                              (M-REF19634 ':INT32) (N-REF19635 ':INT32)
                              (ALPHA-REF19636 ':FLOAT)
                              (LDA-REF19638 ':INT32)
                              (INCX-REF19640 ':INT32)
                              (BETA-REF19641 ':FLOAT)
                              (INCY-REF19643 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF19633 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19634 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19635 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF19636 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19638 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF19640 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF19641 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF19643 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19637 A)
                                            (X-REF19639 X)
                                            (Y-REF19642 Y))
      (%%CLA_GEAMV TRANS-REF19633 M-REF19634 N-REF19635 ALPHA-REF19636
       A-REF19637 LDA-REF19638 X-REF19639 INCX-REF19640 BETA-REF19641
       Y-REF19642 INCY-REF19643))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSPSV "sspsv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19645 ':INT32)
                              (NRHS-REF19646 ':INT32)
                              (LDB-REF19650 ':INT32)
                              (INFO-REF19651 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19645 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19646 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19650 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19651 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19647 AP)
                                            (IPIV-REF19648 IPIV)
                                            (B-REF19649 B))
      (%%SSPSV UPLO N-REF19645 NRHS-REF19646 AP-REF19647 IPIV-REF19648
       B-REF19649 LDB-REF19650 INFO-REF19651))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAQGE "dlaqge_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (ROWCND :FOREIGN-ADDRESS) (COLCND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAQGE (M N A LDA R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19652 ':INT32) (N-REF19653 ':INT32)
                              (LDA-REF19655 ':INT32)
                              (ROWCND-REF19658 ':DOUBLE)
                              (COLCND-REF19659 ':DOUBLE)
                              (AMAX-REF19660 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19652 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19653 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19655 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF19658 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF19659 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF19660 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19654 A)
                                            (R-REF19656 R)
                                            (C-REF19657 C))
      (%%DLAQGE M-REF19652 N-REF19653 A-REF19654 LDA-REF19655
       R-REF19656 C-REF19657 ROWCND-REF19658 COLCND-REF19659
       AMAX-REF19660 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLARTV "zlartv_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (INCC :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLARTV (N X INCX Y INCY C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARTV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19662 ':INT32)
                              (INCX-REF19664 ':INT32)
                              (INCY-REF19666 ':INT32)
                              (INCC-REF19669 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19662 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF19664 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF19666 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF19669 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF19663 X)
                                            (Y-REF19665 Y)
                                            (C-REF19667 C)
                                            (S-REF19668 S))
      (%%ZLARTV N-REF19662 X-REF19663 INCX-REF19664 Y-REF19665
       INCY-REF19666 C-REF19667 S-REF19668 INCC-REF19669))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARFB "dlarfb_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LDWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARFB
    (SIDE TRANS DIRECT STOREV M N K V LDV T LDT C LDC WORK LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19674 ':INT32) (N-REF19675 ':INT32)
                              (K-REF19676 ':INT32)
                              (LDV-REF19678 ':INT32)
                              (LDT-REF19680 ':INT32)
                              (LDC-REF19682 ':INT32)
                              (LDWORK-REF19684 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19674 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19675 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF19676 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF19678 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF19680 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF19682 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF19684 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF19677 V)
                                            (T-REF19679 T)
                                            (C-REF19681 C)
                                            (WORK-REF19683 WORK))
      (%%DLARFB SIDE TRANS DIRECT STOREV M-REF19674 N-REF19675
       K-REF19676 V-REF19677 LDV-REF19678 T-REF19679 LDT-REF19680
       C-REF19681 LDC-REF19682 WORK-REF19683 LDWORK-REF19684))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPSTF2 "cpstf2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (PIV :FOREIGN-ADDRESS)
   (RANK :FOREIGN-ADDRESS) (TOL :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPSTF2 (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPSTF2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19686 ':INT32)
                              (LDA-REF19688 ':INT32)
                              (RANK-REF19690 ':INT32)
                              (TOL-REF19691 ':FLOAT)
                              (INFO-REF19693 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19686 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19688 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF19690 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF19691 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19693 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19687 A)
                                            (PIV-REF19689 PIV)
                                            (WORK-REF19692 WORK))
      (%%CPSTF2 UPLO N-REF19686 A-REF19687 LDA-REF19688 PIV-REF19689
       RANK-REF19690 TOL-REF19691 WORK-REF19692 INFO-REF19693))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNBDB2 "zunbdb2_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNBDB2
    (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19694 ':INT32) (P-REF19695 ':INT32)
                              (Q-REF19696 ':INT32)
                              (LDX11-REF19698 ':INT32)
                              (LDX21-REF19700 ':INT32)
                              (LWORK-REF19707 ':INT32)
                              (INFO-REF19708 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19694 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF19695 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF19696 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF19698 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF19700 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19707 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19708 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF19697 X11)
                                            (X21-REF19699 X21)
                                            (THETA-REF19701 THETA)
                                            (PHI-REF19702 PHI)
                                            (TAUP1-REF19703 TAUP1)
                                            (TAUP2-REF19704 TAUP2)
                                            (TAUQ1-REF19705 TAUQ1)
                                            (WORK-REF19706 WORK))
      (%%ZUNBDB2 M-REF19694 P-REF19695 Q-REF19696 X11-REF19697
       LDX11-REF19698 X21-REF19699 LDX21-REF19700 THETA-REF19701
       PHI-REF19702 TAUP1-REF19703 TAUP2-REF19704 TAUQ1-REF19705
       WORK-REF19706 LWORK-REF19707 INFO-REF19708))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNBDB1 "zunbdb1_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNBDB1
    (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19709 ':INT32) (P-REF19710 ':INT32)
                              (Q-REF19711 ':INT32)
                              (LDX11-REF19713 ':INT32)
                              (LDX21-REF19715 ':INT32)
                              (LWORK-REF19722 ':INT32)
                              (INFO-REF19723 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19709 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF19710 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF19711 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF19713 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF19715 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19722 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19723 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF19712 X11)
                                            (X21-REF19714 X21)
                                            (THETA-REF19716 THETA)
                                            (PHI-REF19717 PHI)
                                            (TAUP1-REF19718 TAUP1)
                                            (TAUP2-REF19719 TAUP2)
                                            (TAUQ1-REF19720 TAUQ1)
                                            (WORK-REF19721 WORK))
      (%%ZUNBDB1 M-REF19709 P-REF19710 Q-REF19711 X11-REF19712
       LDX11-REF19713 X21-REF19714 LDX21-REF19715 THETA-REF19716
       PHI-REF19717 TAUP1-REF19718 TAUP2-REF19719 TAUQ1-REF19720
       WORK-REF19721 LWORK-REF19722 INFO-REF19723))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLA_GBRPVGRW "dla_gbrpvgrw_")
  ((N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NCOLS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLA_GBRPVGRW (N KL KU NCOLS AB LDAB AFB LDAFB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GBRPVGRW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19724 ':INT32)
                              (KL-REF19725 ':INT32)
                              (KU-REF19726 ':INT32)
                              (NCOLS-REF19727 ':INT32)
                              (LDAB-REF19729 ':INT32)
                              (LDAFB-REF19731 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19724 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19725 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19726 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF19727 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19729 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19731 :INT32) LDAFB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19728 AB)
                                            (AFB-REF19730 AFB))
      (%%DLA_GBRPVGRW N-REF19724 KL-REF19725 KU-REF19726 NCOLS-REF19727
       AB-REF19728 LDAB-REF19729 AFB-REF19730 LDAFB-REF19731))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SBDSQR "sbdsqr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NCVT :FOREIGN-ADDRESS) (NRU :FOREIGN-ADDRESS)
   (NCC :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS)
   (LDU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SBDSQR
    (UPLO N NCVT NRU NCC D E VT LDVT U LDU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SBDSQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19733 ':INT32)
                              (NCVT-REF19734 ':INT32)
                              (NRU-REF19735 ':INT32)
                              (NCC-REF19736 ':INT32)
                              (LDVT-REF19740 ':INT32)
                              (LDU-REF19742 ':INT32)
                              (LDC-REF19744 ':INT32)
                              (INFO-REF19746 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19733 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF19734 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF19735 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF19736 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF19740 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF19742 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF19744 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19746 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF19737 D)
                                            (E-REF19738 E)
                                            (VT-REF19739 VT)
                                            (U-REF19741 U)
                                            (C-REF19743 C)
                                            (WORK-REF19745 WORK))
      (%%SBDSQR UPLO N-REF19733 NCVT-REF19734 NRU-REF19735 NCC-REF19736
       D-REF19737 E-REF19738 VT-REF19739 LDVT-REF19740 U-REF19741
       LDU-REF19742 C-REF19743 LDC-REF19744 WORK-REF19745
       INFO-REF19746))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLANGB "clangb_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLANGB (NORM N KL KU AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANGB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19748 ':INT32)
                              (KL-REF19749 ':INT32)
                              (KU-REF19750 ':INT32)
                              (LDAB-REF19752 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19748 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19749 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19750 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19752 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19751 AB)
                                            (WORK-REF19753 WORK))
      (%%CLANGB NORM N-REF19748 KL-REF19749 KU-REF19750 AB-REF19751
       LDAB-REF19752 WORK-REF19753))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPOSVX "dposvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPOSVX
    (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND FERR BERR
     WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19756 ':INT32)
                              (NRHS-REF19757 ':INT32)
                              (LDA-REF19759 ':INT32)
                              (LDAF-REF19761 ':INT32)
                              (LDB-REF19765 ':INT32)
                              (LDX-REF19767 ':INT32)
                              (RCOND-REF19768 ':DOUBLE)
                              (INFO-REF19773 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19756 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19757 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19759 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19761 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19765 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19767 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19768 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19773 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19758 A)
                                            (AF-REF19760 AF)
                                            (S-REF19763 S)
                                            (B-REF19764 B)
                                            (X-REF19766 X)
                                            (FERR-REF19769 FERR)
                                            (BERR-REF19770 BERR)
                                            (WORK-REF19771 WORK)
                                            (IWORK-REF19772 IWORK))
      (%%DPOSVX FACT UPLO N-REF19756 NRHS-REF19757 A-REF19758
       LDA-REF19759 AF-REF19760 LDAF-REF19761 EQUED S-REF19763
       B-REF19764 LDB-REF19765 X-REF19766 LDX-REF19767 RCOND-REF19768
       FERR-REF19769 BERR-REF19770 WORK-REF19771 IWORK-REF19772
       INFO-REF19773))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLACN2 "slacn2_")
  ((N :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (ISGN :FOREIGN-ADDRESS) (EST :FOREIGN-ADDRESS)
   (KASE :FOREIGN-ADDRESS) (ISAVE :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLACN2 (N V X ISGN EST KASE ISAVE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLACN2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISGN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISAVE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19774 ':INT32)
                              (EST-REF19778 ':FLOAT)
                              (KASE-REF19779 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19774 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF19778 :FLOAT) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF19779 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF19775 V)
                                            (X-REF19776 X)
                                            (ISGN-REF19777 ISGN)
                                            (ISAVE-REF19780 ISAVE))
      (%%SLACN2 N-REF19774 V-REF19775 X-REF19776 ISGN-REF19777
       EST-REF19778 KASE-REF19779 ISAVE-REF19780))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYSV_AA "zsysv_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYSV_AA
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSV_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19782 ':INT32)
                              (NRHS-REF19783 ':INT32)
                              (LDA-REF19785 ':INT32)
                              (LDB-REF19788 ':INT32)
                              (LWORK-REF19790 ':INT32)
                              (INFO-REF19791 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19782 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19783 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19785 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19788 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19790 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19791 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19784 A)
                                            (IPIV-REF19786 IPIV)
                                            (B-REF19787 B)
                                            (WORK-REF19789 WORK))
      (%%ZSYSV_AA UPLO N-REF19782 NRHS-REF19783 A-REF19784 LDA-REF19785
       IPIV-REF19786 B-REF19787 LDB-REF19788 WORK-REF19789
       LWORK-REF19790 INFO-REF19791))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STPMLQT "stpmlqt_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STPMLQT
    (SIDE TRANS M N K L MB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPMLQT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19794 ':INT32) (N-REF19795 ':INT32)
                              (K-REF19796 ':INT32) (L-REF19797 ':INT32)
                              (MB-REF19798 ':INT32)
                              (LDV-REF19800 ':INT32)
                              (LDT-REF19802 ':INT32)
                              (LDA-REF19804 ':INT32)
                              (LDB-REF19806 ':INT32)
                              (INFO-REF19808 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19794 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19795 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF19796 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF19797 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF19798 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF19800 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF19802 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19804 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19806 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19808 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF19799 V)
                                            (T-REF19801 T)
                                            (A-REF19803 A)
                                            (B-REF19805 B)
                                            (WORK-REF19807 WORK))
      (%%STPMLQT SIDE TRANS M-REF19794 N-REF19795 K-REF19796 L-REF19797
       MB-REF19798 V-REF19799 LDV-REF19800 T-REF19801 LDT-REF19802
       A-REF19803 LDA-REF19804 B-REF19805 LDB-REF19806 WORK-REF19807
       INFO-REF19808))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHPRFS "zhprfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHPRFS
    (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AFP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19810 ':INT32)
                              (NRHS-REF19811 ':INT32)
                              (LDB-REF19816 ':INT32)
                              (LDX-REF19818 ':INT32)
                              (INFO-REF19823 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19810 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19811 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19816 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19818 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19823 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19812 AP)
                                            (AFP-REF19813 AFP)
                                            (IPIV-REF19814 IPIV)
                                            (B-REF19815 B)
                                            (X-REF19817 X)
                                            (FERR-REF19819 FERR)
                                            (BERR-REF19820 BERR)
                                            (WORK-REF19821 WORK)
                                            (RWORK-REF19822 RWORK))
      (%%ZHPRFS UPLO N-REF19810 NRHS-REF19811 AP-REF19812 AFP-REF19813
       IPIV-REF19814 B-REF19815 LDB-REF19816 X-REF19817 LDX-REF19818
       FERR-REF19819 BERR-REF19820 WORK-REF19821 RWORK-REF19822
       INFO-REF19823))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGESVD "cgesvd_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS)
   (LDU :FOREIGN-ADDRESS) (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGESVD
    (JOBU JOBVT M N A LDA S U LDU VT LDVT WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19826 ':INT32) (N-REF19827 ':INT32)
                              (LDA-REF19829 ':INT32)
                              (LDU-REF19832 ':INT32)
                              (LDVT-REF19834 ':INT32)
                              (LWORK-REF19836 ':INT32)
                              (INFO-REF19838 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19826 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19827 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19829 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF19832 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF19834 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19836 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19838 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19828 A)
                                            (S-REF19830 S)
                                            (U-REF19831 U)
                                            (VT-REF19833 VT)
                                            (WORK-REF19835 WORK)
                                            (RWORK-REF19837 RWORK))
      (%%CGESVD JOBU JOBVT M-REF19826 N-REF19827 A-REF19828
       LDA-REF19829 S-REF19830 U-REF19831 LDU-REF19832 VT-REF19833
       LDVT-REF19834 WORK-REF19835 LWORK-REF19836 RWORK-REF19837
       INFO-REF19838))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHBGST "chbgst_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KA :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (BB :FOREIGN-ADDRESS)
   (LDBB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHBGST
    (VECT UPLO N KA KB AB LDAB BB LDBB X LDX WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBGST)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19841 ':INT32)
                              (KA-REF19842 ':INT32)
                              (KB-REF19843 ':INT32)
                              (LDAB-REF19845 ':INT32)
                              (LDBB-REF19847 ':INT32)
                              (LDX-REF19849 ':INT32)
                              (INFO-REF19852 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19841 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF19842 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF19843 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19845 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF19847 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19849 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19852 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19844 AB)
                                            (BB-REF19846 BB)
                                            (X-REF19848 X)
                                            (WORK-REF19850 WORK)
                                            (RWORK-REF19851 RWORK))
      (%%CHBGST VECT UPLO N-REF19841 KA-REF19842 KB-REF19843
       AB-REF19844 LDAB-REF19845 BB-REF19846 LDBB-REF19847 X-REF19848
       LDX-REF19849 WORK-REF19850 RWORK-REF19851 INFO-REF19852))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGTCON "dgtcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS)
   (DU2 :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGTCON
    (NORM N DL D DU DU2 IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19854 ':INT32)
                              (ANORM-REF19860 ':DOUBLE)
                              (RCOND-REF19861 ':DOUBLE)
                              (INFO-REF19864 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19854 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19860 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19861 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19864 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF19855 DL)
                                            (D-REF19856 D)
                                            (DU-REF19857 DU)
                                            (DU2-REF19858 DU2)
                                            (IPIV-REF19859 IPIV)
                                            (WORK-REF19862 WORK)
                                            (IWORK-REF19863 IWORK))
      (%%DGTCON NORM N-REF19854 DL-REF19855 D-REF19856 DU-REF19857
       DU2-REF19858 IPIV-REF19859 ANORM-REF19860 RCOND-REF19861
       WORK-REF19862 IWORK-REF19863 INFO-REF19864))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLARZB "zlarzb_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LDWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLARZB
    (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT C LDC WORK LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARZB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19869 ':INT32) (N-REF19870 ':INT32)
                              (K-REF19871 ':INT32) (L-REF19872 ':INT32)
                              (LDV-REF19874 ':INT32)
                              (LDT-REF19876 ':INT32)
                              (LDC-REF19878 ':INT32)
                              (LDWORK-REF19880 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19869 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19870 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF19871 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF19872 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF19874 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF19876 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF19878 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF19880 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF19873 V)
                                            (T-REF19875 T)
                                            (C-REF19877 C)
                                            (WORK-REF19879 WORK))
      (%%ZLARZB SIDE TRANS DIRECT STOREV M-REF19869 N-REF19870
       K-REF19871 L-REF19872 V-REF19873 LDV-REF19874 T-REF19875
       LDT-REF19876 C-REF19877 LDC-REF19878 WORK-REF19879
       LDWORK-REF19880))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGGESX "sggesx_")
  ((JOBVSL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SORT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELCTG :FOREIGN-ADDRESS)
   (SENSE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (SDIM :FOREIGN-ADDRESS)
   (ALPHAR :FOREIGN-ADDRESS) (ALPHAI :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (VSL :FOREIGN-ADDRESS)
   (LDVSL :FOREIGN-ADDRESS) (VSR :FOREIGN-ADDRESS)
   (LDVSR :FOREIGN-ADDRESS) (RCONDE :FOREIGN-ADDRESS)
   (RCONDV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (BWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGGESX
    (JOBVSL JOBVSR SORT SELCTG SENSE N A LDA B LDB SDIM ALPHAR ALPHAI
     BETA VSL LDVSL VSR LDVSR RCONDE RCONDV WORK LWORK IWORK LIWORK
     BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGESX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VSL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VSR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RCONDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RCONDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF19884 ':INT32)
                              (N-REF19886 ':INT32)
                              (LDA-REF19888 ':INT32)
                              (LDB-REF19890 ':INT32)
                              (SDIM-REF19891 ':INT32)
                              (LDVSL-REF19896 ':INT32)
                              (LDVSR-REF19898 ':INT32)
                              (LWORK-REF19902 ':INT32)
                              (LIWORK-REF19904 ':INT32)
                              (INFO-REF19906 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF19884 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19886 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19888 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19890 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF19891 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF19896 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF19898 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19902 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19904 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19906 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19887 A)
                                            (B-REF19889 B)
                                            (ALPHAR-REF19892 ALPHAR)
                                            (ALPHAI-REF19893 ALPHAI)
                                            (BETA-REF19894 BETA)
                                            (VSL-REF19895 VSL)
                                            (VSR-REF19897 VSR)
                                            (RCONDE-REF19899 RCONDE)
                                            (RCONDV-REF19900 RCONDV)
                                            (WORK-REF19901 WORK)
                                            (IWORK-REF19903 IWORK)
                                            (BWORK-REF19905 BWORK))
      (%%SGGESX JOBVSL JOBVSR SORT SELCTG-REF19884 SENSE N-REF19886
       A-REF19887 LDA-REF19888 B-REF19889 LDB-REF19890 SDIM-REF19891
       ALPHAR-REF19892 ALPHAI-REF19893 BETA-REF19894 VSL-REF19895
       LDVSL-REF19896 VSR-REF19897 LDVSR-REF19898 RCONDE-REF19899
       RCONDV-REF19900 WORK-REF19901 LWORK-REF19902 IWORK-REF19903
       LIWORK-REF19904 BWORK-REF19905 INFO-REF19906))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPOCON "spocon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPOCON (UPLO N A LDA ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19908 ':INT32)
                              (LDA-REF19910 ':INT32)
                              (ANORM-REF19911 ':FLOAT)
                              (RCOND-REF19912 ':FLOAT)
                              (INFO-REF19915 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19908 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19910 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19911 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19912 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19915 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19909 A)
                                            (WORK-REF19913 WORK)
                                            (IWORK-REF19914 IWORK))
      (%%SPOCON UPLO N-REF19908 A-REF19909 LDA-REF19910 ANORM-REF19911
       RCOND-REF19912 WORK-REF19913 IWORK-REF19914 INFO-REF19915))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEEQUB "sgeequb_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (ROWCND :FOREIGN-ADDRESS) (COLCND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEEQUB (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEEQUB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19916 ':INT32) (N-REF19917 ':INT32)
                              (LDA-REF19919 ':INT32)
                              (ROWCND-REF19922 ':FLOAT)
                              (COLCND-REF19923 ':FLOAT)
                              (AMAX-REF19924 ':FLOAT)
                              (INFO-REF19925 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19916 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19917 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19919 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF19922 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF19923 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF19924 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19925 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19918 A)
                                            (R-REF19920 R)
                                            (C-REF19921 C))
      (%%SGEEQUB M-REF19916 N-REF19917 A-REF19918 LDA-REF19919
       R-REF19920 C-REF19921 ROWCND-REF19922 COLCND-REF19923
       AMAX-REF19924 INFO-REF19925))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASCL2 "slascl2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASCL2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF19926 ':INT32) (N-REF19927 ':INT32)
                              (LDX-REF19930 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19926 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19927 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19930 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF19928 D)
                                            (X-REF19929 X))
      (%%SLASCL2 M-REF19926 N-REF19927 D-REF19928 X-REF19929
       LDX-REF19930))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGGESX "cggesx_")
  ((JOBVSL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SORT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELCTG :FOREIGN-ADDRESS)
   (SENSE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (SDIM :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (VSL :FOREIGN-ADDRESS) (LDVSL :FOREIGN-ADDRESS)
   (VSR :FOREIGN-ADDRESS) (LDVSR :FOREIGN-ADDRESS)
   (RCONDE :FOREIGN-ADDRESS) (RCONDV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (BWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGGESX
    (JOBVSL JOBVSR SORT SELCTG SENSE N A LDA B LDB SDIM ALPHA BETA VSL
     LDVSL VSR LDVSR RCONDE RCONDV WORK LWORK RWORK IWORK LIWORK BWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGESX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VSL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VSR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RCONDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RCONDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF19934 ':INT32)
                              (N-REF19936 ':INT32)
                              (LDA-REF19938 ':INT32)
                              (LDB-REF19940 ':INT32)
                              (SDIM-REF19941 ':INT32)
                              (LDVSL-REF19945 ':INT32)
                              (LDVSR-REF19947 ':INT32)
                              (LWORK-REF19951 ':INT32)
                              (LIWORK-REF19954 ':INT32)
                              (INFO-REF19956 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF19934 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19936 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19938 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19940 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF19941 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF19945 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF19947 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19951 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19954 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19956 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19937 A)
                                            (B-REF19939 B)
                                            (ALPHA-REF19942 ALPHA)
                                            (BETA-REF19943 BETA)
                                            (VSL-REF19944 VSL)
                                            (VSR-REF19946 VSR)
                                            (RCONDE-REF19948 RCONDE)
                                            (RCONDV-REF19949 RCONDV)
                                            (WORK-REF19950 WORK)
                                            (RWORK-REF19952 RWORK)
                                            (IWORK-REF19953 IWORK)
                                            (BWORK-REF19955 BWORK))
      (%%CGGESX JOBVSL JOBVSR SORT SELCTG-REF19934 SENSE N-REF19936
       A-REF19937 LDA-REF19938 B-REF19939 LDB-REF19940 SDIM-REF19941
       ALPHA-REF19942 BETA-REF19943 VSL-REF19944 LDVSL-REF19945
       VSR-REF19946 LDVSR-REF19947 RCONDE-REF19948 RCONDV-REF19949
       WORK-REF19950 LWORK-REF19951 RWORK-REF19952 IWORK-REF19953
       LIWORK-REF19954 BWORK-REF19955 INFO-REF19956))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGTRFS "cgtrfs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS) (DLF :FOREIGN-ADDRESS)
   (DF :FOREIGN-ADDRESS) (DUF :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGTRFS
    (TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX FERR BERR
     WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DLF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DUF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19958 ':INT32)
                              (NRHS-REF19959 ':INT32)
                              (LDB-REF19969 ':INT32)
                              (LDX-REF19971 ':INT32)
                              (INFO-REF19976 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19958 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19959 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19969 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19971 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19976 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF19960 DL)
                                            (D-REF19961 D)
                                            (DU-REF19962 DU)
                                            (DLF-REF19963 DLF)
                                            (DF-REF19964 DF)
                                            (DUF-REF19965 DUF)
                                            (DU2-REF19966 DU2)
                                            (IPIV-REF19967 IPIV)
                                            (B-REF19968 B)
                                            (X-REF19970 X)
                                            (FERR-REF19972 FERR)
                                            (BERR-REF19973 BERR)
                                            (WORK-REF19974 WORK)
                                            (RWORK-REF19975 RWORK))
      (%%CGTRFS TRANS N-REF19958 NRHS-REF19959 DL-REF19960 D-REF19961
       DU-REF19962 DLF-REF19963 DF-REF19964 DUF-REF19965 DU2-REF19966
       IPIV-REF19967 B-REF19968 LDB-REF19969 X-REF19970 LDX-REF19971
       FERR-REF19972 BERR-REF19973 WORK-REF19974 RWORK-REF19975
       INFO-REF19976))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTRF "zsytrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19978 ':INT32)
                              (LDA-REF19980 ':INT32)
                              (LWORK-REF19983 ':INT32)
                              (INFO-REF19984 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19978 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19980 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19983 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19984 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19979 A)
                                            (IPIV-REF19981 IPIV)
                                            (WORK-REF19982 WORK))
      (%%ZSYTRF UPLO N-REF19978 A-REF19979 LDA-REF19980 IPIV-REF19981
       WORK-REF19982 LWORK-REF19983 INFO-REF19984))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_PORCOND_C "zla_porcond_c_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (CAPPLY :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_PORCOND_C
    (UPLO N A LDA AF LDAF C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_PORCOND_C)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19986 ':INT32)
                              (LDA-REF19988 ':INT32)
                              (LDAF-REF19990 ':INT32)
                              (CAPPLY-REF19992 ':INT32)
                              (INFO-REF19993 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19986 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19988 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19990 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF19992 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19993 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19987 A)
                                            (AF-REF19989 AF)
                                            (C-REF19991 C)
                                            (WORK-REF19994 WORK)
                                            (RWORK-REF19995 RWORK))
      (%%ZLA_PORCOND_C UPLO N-REF19986 A-REF19987 LDA-REF19988
       AF-REF19989 LDAF-REF19990 C-REF19991 CAPPLY-REF19992
       INFO-REF19993 WORK-REF19994 RWORK-REF19995))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORCSD "sorcsd_")
  ((JOBU1 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU2 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV1T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV2T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIGNS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X12 :FOREIGN-ADDRESS) (LDX12 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (X22 :FOREIGN-ADDRESS) (LDX22 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (U1 :FOREIGN-ADDRESS)
   (LDU1 :FOREIGN-ADDRESS) (U2 :FOREIGN-ADDRESS)
   (LDU2 :FOREIGN-ADDRESS) (V1T :FOREIGN-ADDRESS)
   (LDV1T :FOREIGN-ADDRESS) (V2T :FOREIGN-ADDRESS)
   (LDV2T :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORCSD
    (JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M P Q X11 LDX11 X12 LDX12
     X21 LDX21 X22 LDX22 THETA U1 LDU1 U2 LDU2 V1T LDV1T V2T LDV2T WORK
     LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORCSD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X12)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X22)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V1T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V2T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20002 ':INT32) (P-REF20003 ':INT32)
                              (Q-REF20004 ':INT32)
                              (LDX11-REF20006 ':INT32)
                              (LDX12-REF20008 ':INT32)
                              (LDX21-REF20010 ':INT32)
                              (LDX22-REF20012 ':INT32)
                              (LDU1-REF20015 ':INT32)
                              (LDU2-REF20017 ':INT32)
                              (LDV1T-REF20019 ':INT32)
                              (LDV2T-REF20021 ':INT32)
                              (LWORK-REF20023 ':INT32)
                              (INFO-REF20025 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20002 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF20003 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF20004 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF20006 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF20008 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF20010 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF20012 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF20015 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF20017 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF20019 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF20021 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20023 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20025 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF20005 X11)
                                            (X12-REF20007 X12)
                                            (X21-REF20009 X21)
                                            (X22-REF20011 X22)
                                            (THETA-REF20013 THETA)
                                            (U1-REF20014 U1)
                                            (U2-REF20016 U2)
                                            (V1T-REF20018 V1T)
                                            (V2T-REF20020 V2T)
                                            (WORK-REF20022 WORK)
                                            (IWORK-REF20024 IWORK))
      (%%SORCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF20002
       P-REF20003 Q-REF20004 X11-REF20005 LDX11-REF20006 X12-REF20007
       LDX12-REF20008 X21-REF20009 LDX21-REF20010 X22-REF20011
       LDX22-REF20012 THETA-REF20013 U1-REF20014 LDU1-REF20015
       U2-REF20016 LDU2-REF20017 V1T-REF20018 LDV1T-REF20019
       V2T-REF20020 LDV2T-REF20021 WORK-REF20022 LWORK-REF20023
       IWORK-REF20024 INFO-REF20025))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAQR4 "claqr4_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (ILOZ :FOREIGN-ADDRESS) (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAQR4
    (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR4)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20026 ':INT32)
                              (WANTZ-REF20027 ':INT32)
                              (N-REF20028 ':INT32)
                              (ILO-REF20029 ':INT32)
                              (IHI-REF20030 ':INT32)
                              (LDH-REF20032 ':INT32)
                              (ILOZ-REF20034 ':INT32)
                              (IHIZ-REF20035 ':INT32)
                              (LDZ-REF20037 ':INT32)
                              (LWORK-REF20039 ':INT32)
                              (INFO-REF20040 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20026 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20027 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20028 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF20029 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF20030 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20032 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20034 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20035 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20037 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20039 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20040 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20031 H)
                                            (W-REF20033 W)
                                            (Z-REF20036 Z)
                                            (WORK-REF20038 WORK))
      (%%CLAQR4 WANTT-REF20026 WANTZ-REF20027 N-REF20028 ILO-REF20029
       IHI-REF20030 H-REF20031 LDH-REF20032 W-REF20033 ILOZ-REF20034
       IHIZ-REF20035 Z-REF20036 LDZ-REF20037 WORK-REF20038
       LWORK-REF20039 INFO-REF20040))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSBEVX "dsbevx_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSBEVX
    (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z LDZ
     WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20044 ':INT32)
                              (KD-REF20045 ':INT32)
                              (LDAB-REF20047 ':INT32)
                              (LDQ-REF20049 ':INT32)
                              (VL-REF20050 ':DOUBLE)
                              (VU-REF20051 ':DOUBLE)
                              (IL-REF20052 ':INT32)
                              (IU-REF20053 ':INT32)
                              (ABSTOL-REF20054 ':DOUBLE)
                              (M-REF20055 ':INT32)
                              (LDZ-REF20058 ':INT32)
                              (INFO-REF20062 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20044 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF20045 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20047 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF20049 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF20050 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF20051 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF20052 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF20053 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF20054 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20055 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20058 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20062 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20046 AB)
                                            (Q-REF20048 Q)
                                            (W-REF20056 W)
                                            (Z-REF20057 Z)
                                            (WORK-REF20059 WORK)
                                            (IWORK-REF20060 IWORK)
                                            (IFAIL-REF20061 IFAIL))
      (%%DSBEVX JOBZ RANGE UPLO N-REF20044 KD-REF20045 AB-REF20046
       LDAB-REF20047 Q-REF20048 LDQ-REF20049 VL-REF20050 VU-REF20051
       IL-REF20052 IU-REF20053 ABSTOL-REF20054 M-REF20055 W-REF20056
       Z-REF20057 LDZ-REF20058 WORK-REF20059 IWORK-REF20060
       IFAIL-REF20061 INFO-REF20062))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNGTR "cungtr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNGTR (UPLO N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20064 ':INT32)
                              (LDA-REF20066 ':INT32)
                              (LWORK-REF20069 ':INT32)
                              (INFO-REF20070 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20064 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20066 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20069 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20070 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20065 A)
                                            (TAU-REF20067 TAU)
                                            (WORK-REF20068 WORK))
      (%%CUNGTR UPLO N-REF20064 A-REF20065 LDA-REF20066 TAU-REF20067
       WORK-REF20068 LWORK-REF20069 INFO-REF20070))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASYF_RK "slasyf_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASYF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASYF_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20072 ':INT32)
                              (NB-REF20073 ':INT32)
                              (KB-REF20074 ':INT32)
                              (LDA-REF20076 ':INT32)
                              (LDW-REF20080 ':INT32)
                              (INFO-REF20081 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20072 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20073 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20074 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20076 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF20080 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20081 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20075 A)
                                            (E-REF20077 E)
                                            (IPIV-REF20078 IPIV)
                                            (W-REF20079 W))
      (%%SLASYF_RK UPLO N-REF20072 NB-REF20073 KB-REF20074 A-REF20075
       LDA-REF20076 E-REF20077 IPIV-REF20078 W-REF20079 LDW-REF20080
       INFO-REF20081))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAHR2 "clahr2_")
  ((N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (LDY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAHR2 (N K NB A LDA TAU T LDT Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHR2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20082 ':INT32) (K-REF20083 ':INT32)
                              (NB-REF20084 ':INT32)
                              (LDA-REF20086 ':INT32)
                              (LDT-REF20089 ':INT32)
                              (LDY-REF20091 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20082 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20083 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20084 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20086 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20089 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20091 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20085 A)
                                            (TAU-REF20087 TAU)
                                            (T-REF20088 T)
                                            (Y-REF20090 Y))
      (%%CLAHR2 N-REF20082 K-REF20083 NB-REF20084 A-REF20085
       LDA-REF20086 TAU-REF20087 T-REF20088 LDT-REF20089 Y-REF20090
       LDY-REF20091))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%ZLA_PORFSX_EXTENDED "zla_porfsx_extended_")
  ((PREC_TYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (COLEQU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS) (LDY :FOREIGN-ADDRESS)
   (BERR_OUT :FOREIGN-ADDRESS) (N_NORMS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS) (DY :FOREIGN-ADDRESS)
   (Y_TAIL :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (ITHRESH :FOREIGN-ADDRESS) (RTHRESH :FOREIGN-ADDRESS)
   (DZ_UB :FOREIGN-ADDRESS) (IGNORE_CWISE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_PORFSX_EXTENDED
    (PREC_TYPE UPLO N NRHS A LDA AF LDAF COLEQU C B LDB Y LDY BERR_OUT
     N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY Y_TAIL RCOND
     ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_PORFSX_EXTENDED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PREC_TYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR_OUT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y_TAIL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF20092 ':INT32)
                              (N-REF20094 ':INT32)
                              (NRHS-REF20095 ':INT32)
                              (LDA-REF20097 ':INT32)
                              (LDAF-REF20099 ':INT32)
                              (COLEQU-REF20100 ':INT32)
                              (LDB-REF20103 ':INT32)
                              (LDY-REF20105 ':INT32)
                              (N_NORMS-REF20107 ':INT32)
                              (RCOND-REF20114 ':DOUBLE)
                              (ITHRESH-REF20115 ':INT32)
                              (RTHRESH-REF20116 ':DOUBLE)
                              (DZ_UB-REF20117 ':DOUBLE)
                              (IGNORE_CWISE-REF20118 ':INT32)
                              (INFO-REF20119 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF20092 :INT32)
                      PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20094 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20095 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20097 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20099 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF20100 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20103 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20105 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF20107 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20114 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20115 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20116 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20117 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20118 :INT32)
                      IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20119 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20096 A)
                                            (AF-REF20098 AF)
                                            (C-REF20101 C)
                                            (B-REF20102 B)
                                            (Y-REF20104 Y)
                                            (BERR_OUT-REF20106
                                             BERR_OUT)
                                            (ERR_BNDS_NORM-REF20108
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF20109
                                             ERR_BNDS_COMP)
                                            (RES-REF20110 RES)
                                            (AYB-REF20111 AYB)
                                            (DY-REF20112 DY)
                                            (Y_TAIL-REF20113 Y_TAIL))
      (%%ZLA_PORFSX_EXTENDED PREC_TYPE-REF20092 UPLO N-REF20094
       NRHS-REF20095 A-REF20096 LDA-REF20097 AF-REF20098 LDAF-REF20099
       COLEQU-REF20100 C-REF20101 B-REF20102 LDB-REF20103 Y-REF20104
       LDY-REF20105 BERR_OUT-REF20106 N_NORMS-REF20107
       ERR_BNDS_NORM-REF20108 ERR_BNDS_COMP-REF20109 RES-REF20110
       AYB-REF20111 DY-REF20112 Y_TAIL-REF20113 RCOND-REF20114
       ITHRESH-REF20115 RTHRESH-REF20116 DZ_UB-REF20117
       IGNORE_CWISE-REF20118 INFO-REF20119))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGESVJ "sgesvj_")
  ((JOBA (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (SVA :FOREIGN-ADDRESS) (MV :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGESVJ
    (JOBA JOBU JOBV M N A LDA SVA MV V LDV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVJ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SVA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20123 ':INT32) (N-REF20124 ':INT32)
                              (LDA-REF20126 ':INT32)
                              (MV-REF20128 ':INT32)
                              (LDV-REF20130 ':INT32)
                              (LWORK-REF20132 ':INT32)
                              (INFO-REF20133 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20123 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20124 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20126 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF20128 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20130 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20132 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20133 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20125 A)
                                            (SVA-REF20127 SVA)
                                            (V-REF20129 V)
                                            (WORK-REF20131 WORK))
      (%%SGESVJ JOBA JOBU JOBV M-REF20123 N-REF20124 A-REF20125
       LDA-REF20126 SVA-REF20127 MV-REF20128 V-REF20129 LDV-REF20130
       WORK-REF20131 LWORK-REF20132 INFO-REF20133))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUPMTR "cupmtr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUPMTR (SIDE UPLO TRANS M N AP TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUPMTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20137 ':INT32) (N-REF20138 ':INT32)
                              (LDC-REF20142 ':INT32)
                              (INFO-REF20144 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20137 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20138 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20142 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20144 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20139 AP)
                                            (TAU-REF20140 TAU)
                                            (C-REF20141 C)
                                            (WORK-REF20143 WORK))
      (%%CUPMTR SIDE UPLO TRANS M-REF20137 N-REF20138 AP-REF20139
       TAU-REF20140 C-REF20141 LDC-REF20142 WORK-REF20143
       INFO-REF20144))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYCONV "zsyconv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (WAY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYCONV (UPLO WAY N A LDA IPIV E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCONV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20147 ':INT32)
                              (LDA-REF20149 ':INT32)
                              (INFO-REF20152 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20147 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20149 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20152 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20148 A)
                                            (IPIV-REF20150 IPIV)
                                            (E-REF20151 E))
      (%%ZSYCONV UPLO WAY N-REF20147 A-REF20148 LDA-REF20149
       IPIV-REF20150 E-REF20151 INFO-REF20152))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTRI_3 "zsytri_3_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI_3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20154 ':INT32)
                              (LDA-REF20156 ':INT32)
                              (LWORK-REF20160 ':INT32)
                              (INFO-REF20161 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20154 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20156 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20160 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20161 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20155 A)
                                            (E-REF20157 E)
                                            (IPIV-REF20158 IPIV)
                                            (WORK-REF20159 WORK))
      (%%ZSYTRI_3 UPLO N-REF20154 A-REF20155 LDA-REF20156 E-REF20157
       IPIV-REF20158 WORK-REF20159 LWORK-REF20160 INFO-REF20161))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARGV "slargv_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (INCC :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARGV (N X INCX Y INCY C INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARGV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20162 ':INT32)
                              (INCX-REF20164 ':INT32)
                              (INCY-REF20166 ':INT32)
                              (INCC-REF20168 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20162 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20164 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20166 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF20168 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20163 X)
                                            (Y-REF20165 Y)
                                            (C-REF20167 C))
      (%%SLARGV N-REF20162 X-REF20163 INCX-REF20164 Y-REF20165
       INCY-REF20166 C-REF20167 INCC-REF20168))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORBDB5 "dorbdb5_")
  ((M1 :FOREIGN-ADDRESS) (M2 :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (X1 :FOREIGN-ADDRESS) (INCX1 :FOREIGN-ADDRESS) (X2 :FOREIGN-ADDRESS)
   (INCX2 :FOREIGN-ADDRESS) (Q1 :FOREIGN-ADDRESS)
   (LDQ1 :FOREIGN-ADDRESS) (Q2 :FOREIGN-ADDRESS)
   (LDQ2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORBDB5
    (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB5)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF20169 ':INT32)
                              (M2-REF20170 ':INT32)
                              (N-REF20171 ':INT32)
                              (INCX1-REF20173 ':INT32)
                              (INCX2-REF20175 ':INT32)
                              (LDQ1-REF20177 ':INT32)
                              (LDQ2-REF20179 ':INT32)
                              (LWORK-REF20181 ':INT32)
                              (INFO-REF20182 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF20169 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF20170 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20171 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF20173 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF20175 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF20177 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF20179 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20181 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20182 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF20172 X1)
                                            (X2-REF20174 X2)
                                            (Q1-REF20176 Q1)
                                            (Q2-REF20178 Q2)
                                            (WORK-REF20180 WORK))
      (%%DORBDB5 M1-REF20169 M2-REF20170 N-REF20171 X1-REF20172
       INCX1-REF20173 X2-REF20174 INCX2-REF20175 Q1-REF20176
       LDQ1-REF20177 Q2-REF20178 LDQ2-REF20179 WORK-REF20180
       LWORK-REF20181 INFO-REF20182))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STPTTR "stpttr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STPTTR (UPLO N AP A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPTTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20184 ':INT32)
                              (LDA-REF20187 ':INT32)
                              (INFO-REF20188 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20184 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20187 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20188 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20185 AP)
                                            (A-REF20186 A))
      (%%STPTTR UPLO N-REF20184 AP-REF20185 A-REF20186 LDA-REF20187
       INFO-REF20188))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAEXC "slaexc_")
  ((WANTQ :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (J1 :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS) (N2 :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAEXC (WANTQ N T LDT Q LDQ J1 N1 N2 WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAEXC)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF20189 ':INT32)
                              (N-REF20190 ':INT32)
                              (LDT-REF20192 ':INT32)
                              (LDQ-REF20194 ':INT32)
                              (J1-REF20195 ':INT32)
                              (N1-REF20196 ':INT32)
                              (N2-REF20197 ':INT32)
                              (INFO-REF20199 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF20189 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20190 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20192 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF20194 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF20195 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF20196 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF20197 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20199 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF20191 T)
                                            (Q-REF20193 Q)
                                            (WORK-REF20198 WORK))
      (%%SLAEXC WANTQ-REF20189 N-REF20190 T-REF20191 LDT-REF20192
       Q-REF20193 LDQ-REF20194 J1-REF20195 N1-REF20196 N2-REF20197
       WORK-REF20198 INFO-REF20199))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DCOMBSSQ "dcombssq_")
  ((V1 :FOREIGN-ADDRESS) (V2 :FOREIGN-ADDRESS)) :RETURNING :VOID
  :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DCOMBSSQ (V1 V2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DCOMBSSQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V2))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V1-REF20200 V1)
                                            (V2-REF20201 V2))
      (%%DCOMBSSQ V1-REF20200 V2-REF20201))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARFY "slarfy_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (INCV :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARFY (UPLO N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARFY)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20203 ':INT32)
                              (INCV-REF20205 ':INT32)
                              (TAU-REF20206 ':FLOAT)
                              (LDC-REF20208 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20203 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF20205 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF20206 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20208 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20204 V)
                                            (C-REF20207 C)
                                            (WORK-REF20209 WORK))
      (%%SLARFY UPLO N-REF20203 V-REF20204 INCV-REF20205 TAU-REF20206
       C-REF20207 LDC-REF20208 WORK-REF20209))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEBAL "sgebal_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS)
   (IHI :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEBAL (JOB N A LDA ILO IHI SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEBAL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SCALE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20211 ':INT32)
                              (LDA-REF20213 ':INT32)
                              (ILO-REF20214 ':INT32)
                              (IHI-REF20215 ':INT32)
                              (INFO-REF20217 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20211 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20213 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF20214 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF20215 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20217 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20212 A)
                                            (SCALE-REF20216 SCALE))
      (%%SGEBAL JOB N-REF20211 A-REF20212 LDA-REF20213 ILO-REF20214
       IHI-REF20215 SCALE-REF20216 INFO-REF20217))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSPR "zspr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSPR (UPLO N ALPHA X INCX AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20219 ':INT32)
                              (ALPHA-REF20220
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF20222 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20219 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF20220
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20222 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20221 X)
                                            (AP-REF20223 AP))
      (%%ZSPR UPLO N-REF20219 ALPHA-REF20220 X-REF20221 INCX-REF20222
       AP-REF20223))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGELSD "sgelsd_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RANK :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGELSD
    (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELSD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20224 ':INT32) (N-REF20225 ':INT32)
                              (NRHS-REF20226 ':INT32)
                              (LDA-REF20228 ':INT32)
                              (LDB-REF20230 ':INT32)
                              (RCOND-REF20232 ':FLOAT)
                              (RANK-REF20233 ':INT32)
                              (LWORK-REF20235 ':INT32)
                              (INFO-REF20237 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20224 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20225 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20226 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20228 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20230 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20232 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF20233 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20235 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20237 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20227 A)
                                            (B-REF20229 B)
                                            (S-REF20231 S)
                                            (WORK-REF20234 WORK)
                                            (IWORK-REF20236 IWORK))
      (%%SGELSD M-REF20224 N-REF20225 NRHS-REF20226 A-REF20227
       LDA-REF20228 B-REF20229 LDB-REF20230 S-REF20231 RCOND-REF20232
       RANK-REF20233 WORK-REF20234 LWORK-REF20235 IWORK-REF20236
       INFO-REF20237))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGESVXX "zgesvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (RPVGRW :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (N_ERR_BNDS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (NPARAMS :FOREIGN-ADDRESS) (PARAMS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGESVXX
    (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX RCOND
     RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
     WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20240 ':INT32)
                              (NRHS-REF20241 ':INT32)
                              (LDA-REF20243 ':INT32)
                              (LDAF-REF20245 ':INT32)
                              (LDB-REF20251 ':INT32)
                              (LDX-REF20253 ':INT32)
                              (RCOND-REF20254 ':DOUBLE)
                              (RPVGRW-REF20255 ':DOUBLE)
                              (N_ERR_BNDS-REF20257 ':INT32)
                              (NPARAMS-REF20260 ':INT32)
                              (INFO-REF20264 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20240 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20241 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20243 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20245 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20251 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20253 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20254 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF20255 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF20257 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF20260 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20264 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20242 A)
                                            (AF-REF20244 AF)
                                            (IPIV-REF20246 IPIV)
                                            (R-REF20248 R)
                                            (C-REF20249 C)
                                            (B-REF20250 B)
                                            (X-REF20252 X)
                                            (BERR-REF20256 BERR)
                                            (ERR_BNDS_NORM-REF20258
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF20259
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF20261 PARAMS)
                                            (WORK-REF20262 WORK)
                                            (RWORK-REF20263 RWORK))
      (%%ZGESVXX FACT TRANS N-REF20240 NRHS-REF20241 A-REF20242
       LDA-REF20243 AF-REF20244 LDAF-REF20245 IPIV-REF20246 EQUED
       R-REF20248 C-REF20249 B-REF20250 LDB-REF20251 X-REF20252
       LDX-REF20253 RCOND-REF20254 RPVGRW-REF20255 BERR-REF20256
       N_ERR_BNDS-REF20257 ERR_BNDS_NORM-REF20258
       ERR_BNDS_COMP-REF20259 NPARAMS-REF20260 PARAMS-REF20261
       WORK-REF20262 RWORK-REF20263 INFO-REF20264))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNG2L "cung2l_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNG2L (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNG2L)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20265 ':INT32) (N-REF20266 ':INT32)
                              (K-REF20267 ':INT32)
                              (LDA-REF20269 ':INT32)
                              (INFO-REF20272 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20265 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20266 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20267 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20269 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20272 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20268 A)
                                            (TAU-REF20270 TAU)
                                            (WORK-REF20271 WORK))
      (%%CUNG2L M-REF20265 N-REF20266 K-REF20267 A-REF20268
       LDA-REF20269 TAU-REF20270 WORK-REF20271 INFO-REF20272))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGERQ2 "sgerq2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGERQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGERQ2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20273 ':INT32) (N-REF20274 ':INT32)
                              (LDA-REF20276 ':INT32)
                              (INFO-REF20279 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20273 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20274 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20276 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20279 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20275 A)
                                            (TAU-REF20277 TAU)
                                            (WORK-REF20278 WORK))
      (%%SGERQ2 M-REF20273 N-REF20274 A-REF20275 LDA-REF20276
       TAU-REF20277 WORK-REF20278 INFO-REF20279))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHEEVX_2STAGE "cheevx_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHEEVX_2STAGE
    (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK LWORK
     RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEVX_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20283 ':INT32)
                              (LDA-REF20285 ':INT32)
                              (VL-REF20286 ':FLOAT)
                              (VU-REF20287 ':FLOAT)
                              (IL-REF20288 ':INT32)
                              (IU-REF20289 ':INT32)
                              (ABSTOL-REF20290 ':FLOAT)
                              (M-REF20291 ':INT32)
                              (LDZ-REF20294 ':INT32)
                              (LWORK-REF20296 ':INT32)
                              (INFO-REF20300 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20283 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20285 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF20286 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF20287 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF20288 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF20289 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF20290 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20291 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20294 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20296 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20300 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20284 A)
                                            (W-REF20292 W)
                                            (Z-REF20293 Z)
                                            (WORK-REF20295 WORK)
                                            (RWORK-REF20297 RWORK)
                                            (IWORK-REF20298 IWORK)
                                            (IFAIL-REF20299 IFAIL))
      (%%CHEEVX_2STAGE JOBZ RANGE UPLO N-REF20283 A-REF20284
       LDA-REF20285 VL-REF20286 VU-REF20287 IL-REF20288 IU-REF20289
       ABSTOL-REF20290 M-REF20291 W-REF20292 Z-REF20293 LDZ-REF20294
       WORK-REF20295 LWORK-REF20296 RWORK-REF20297 IWORK-REF20298
       IFAIL-REF20299 INFO-REF20300))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTF2 "ssytf2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTF2 (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTF2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20302 ':INT32)
                              (LDA-REF20304 ':INT32)
                              (INFO-REF20306 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20302 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20304 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20306 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20303 A)
                                            (IPIV-REF20305 IPIV))
      (%%SSYTF2 UPLO N-REF20302 A-REF20303 LDA-REF20304 IPIV-REF20305
       INFO-REF20306))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTPCON "ctpcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTPCON (NORM UPLO DIAG N AP RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20310 ':INT32)
                              (RCOND-REF20312 ':FLOAT)
                              (INFO-REF20315 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20310 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20312 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20315 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20311 AP)
                                            (WORK-REF20313 WORK)
                                            (RWORK-REF20314 RWORK))
      (%%CTPCON NORM UPLO DIAG N-REF20310 AP-REF20311 RCOND-REF20312
       WORK-REF20313 RWORK-REF20314 INFO-REF20315))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTGSNA "ztgsna_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (DIF :FOREIGN-ADDRESS)
   (MM :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTGSNA
    (JOB HOWMNY SELECT N A LDA B LDB VL LDVL VR LDVR S DIF MM M WORK
     LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGSNA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20319 ':INT32)
                              (LDA-REF20321 ':INT32)
                              (LDB-REF20323 ':INT32)
                              (LDVL-REF20325 ':INT32)
                              (LDVR-REF20327 ':INT32)
                              (MM-REF20330 ':INT32)
                              (M-REF20331 ':INT32)
                              (LWORK-REF20333 ':INT32)
                              (INFO-REF20335 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20319 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20321 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20323 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF20325 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF20327 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF20330 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20331 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20333 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20335 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF20318 SELECT)
                                            (A-REF20320 A)
                                            (B-REF20322 B)
                                            (VL-REF20324 VL)
                                            (VR-REF20326 VR)
                                            (S-REF20328 S)
                                            (DIF-REF20329 DIF)
                                            (WORK-REF20332 WORK)
                                            (IWORK-REF20334 IWORK))
      (%%ZTGSNA JOB HOWMNY SELECT-REF20318 N-REF20319 A-REF20320
       LDA-REF20321 B-REF20322 LDB-REF20323 VL-REF20324 LDVL-REF20325
       VR-REF20326 LDVR-REF20327 S-REF20328 DIF-REF20329 MM-REF20330
       M-REF20331 WORK-REF20332 LWORK-REF20333 IWORK-REF20334
       INFO-REF20335))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLADIV "cladiv_")
  ((X :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)) :RETURNING
  (:FOREIGN-ADDRESS (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT))
  :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLADIV (X Y)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLADIV)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) Y))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF20336
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (Y-REF20337
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              X-REF20336
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART X)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART X)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              Y-REF20337
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART Y)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART Y)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CLADIV X-REF20336 Y-REF20337))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STFTTR "stfttr_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ARF :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STFTTR (TRANSR UPLO N ARF A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STFTTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ARF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20340 ':INT32)
                              (LDA-REF20343 ':INT32)
                              (INFO-REF20344 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20340 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20343 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20344 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF20341 ARF)
                                            (A-REF20342 A))
      (%%STFTTR TRANSR UPLO N-REF20340 ARF-REF20341 A-REF20342
       LDA-REF20343 INFO-REF20344))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%ZHB2ST_KERNELS "zhb2st_kernels_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (WANTZ :FOREIGN-ADDRESS) (TTYPE :FOREIGN-ADDRESS)
   (ST :FOREIGN-ADDRESS) (ED :FOREIGN-ADDRESS) (SWEEP :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS) (IB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHB2ST_KERNELS
    (UPLO WANTZ TTYPE ST ED SWEEP N NB IB A LDA V TAU LDVT WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHB2ST_KERNELS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SWEEP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF20346 ':INT32)
                              (TTYPE-REF20347 ':INT32)
                              (ST-REF20348 ':INT32)
                              (ED-REF20349 ':INT32)
                              (SWEEP-REF20350 ':INT32)
                              (N-REF20351 ':INT32)
                              (NB-REF20352 ':INT32)
                              (IB-REF20353 ':INT32)
                              (LDA-REF20355 ':INT32)
                              (LDVT-REF20358 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20346 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF20347 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF20348 :INT32) ST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF20349 :INT32) ED)
    (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF20350 :INT32) SWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20351 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20352 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF20353 :INT32) IB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20355 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF20358 :INT32) LDVT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20354 A)
                                            (V-REF20356 V)
                                            (TAU-REF20357 TAU)
                                            (WORK-REF20359 WORK))
      (%%ZHB2ST_KERNELS UPLO WANTZ-REF20346 TTYPE-REF20347 ST-REF20348
       ED-REF20349 SWEEP-REF20350 N-REF20351 NB-REF20352 IB-REF20353
       A-REF20354 LDA-REF20355 V-REF20356 TAU-REF20357 LDVT-REF20358
       WORK-REF20359))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAQSP "dlaqsp_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAQSP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQSP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20361 ':INT32)
                              (SCOND-REF20364 ':DOUBLE)
                              (AMAX-REF20365 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20361 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20364 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20365 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20362 AP)
                                            (S-REF20363 S))
      (%%DLAQSP UPLO N-REF20361 AP-REF20362 S-REF20363 SCOND-REF20364
       AMAX-REF20365 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASD2 "slasd2_")
  ((NL :FOREIGN-ADDRESS) (NR :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS) (VT :FOREIGN-ADDRESS)
   (LDVT :FOREIGN-ADDRESS) (DSIGMA :FOREIGN-ADDRESS)
   (U2 :FOREIGN-ADDRESS) (LDU2 :FOREIGN-ADDRESS) (VT2 :FOREIGN-ADDRESS)
   (LDVT2 :FOREIGN-ADDRESS) (IDXP :FOREIGN-ADDRESS)
   (IDX :FOREIGN-ADDRESS) (IDXC :FOREIGN-ADDRESS)
   (IDXQ :FOREIGN-ADDRESS) (COLTYP :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASD2
    (NL NR SQRE K D Z ALPHA BETA U LDU VT LDVT DSIGMA U2 LDU2 VT2 LDVT2
     IDXP IDX IDXC IDXQ COLTYP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DSIGMA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDXP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDXC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDXQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    COLTYP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF20367 ':INT32)
                              (NR-REF20368 ':INT32)
                              (SQRE-REF20369 ':INT32)
                              (K-REF20370 ':INT32)
                              (ALPHA-REF20373 ':FLOAT)
                              (BETA-REF20374 ':FLOAT)
                              (LDU-REF20376 ':INT32)
                              (LDVT-REF20378 ':INT32)
                              (LDU2-REF20381 ':INT32)
                              (LDVT2-REF20383 ':INT32)
                              (INFO-REF20389 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF20367 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF20368 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF20369 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20370 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF20373 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF20374 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF20376 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF20378 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF20381 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF20383 :INT32) LDVT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20389 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20371 D)
                                            (Z-REF20372 Z)
                                            (U-REF20375 U)
                                            (VT-REF20377 VT)
                                            (DSIGMA-REF20379 DSIGMA)
                                            (U2-REF20380 U2)
                                            (VT2-REF20382 VT2)
                                            (IDXP-REF20384 IDXP)
                                            (IDX-REF20385 IDX)
                                            (IDXC-REF20386 IDXC)
                                            (IDXQ-REF20387 IDXQ)
                                            (COLTYP-REF20388 COLTYP))
      (%%SLASD2 NL-REF20367 NR-REF20368 SQRE-REF20369 K-REF20370
       D-REF20371 Z-REF20372 ALPHA-REF20373 BETA-REF20374 U-REF20375
       LDU-REF20376 VT-REF20377 LDVT-REF20378 DSIGMA-REF20379
       U2-REF20380 LDU2-REF20381 VT2-REF20382 LDVT2-REF20383
       IDXP-REF20384 IDX-REF20385 IDXC-REF20386 IDXQ-REF20387
       COLTYP-REF20388 INFO-REF20389))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLANTP "slantp_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLANTP (NORM UPLO DIAG N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANTP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20393 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20393 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20394 AP)
                                            (WORK-REF20395 WORK))
      (%%SLANTP NORM UPLO DIAG N-REF20393 AP-REF20394 WORK-REF20395))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGGEV3 "dggev3_")
  ((JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (ALPHAR :FOREIGN-ADDRESS) (ALPHAI :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGGEV3
    (JOBVL JOBVR N A LDA B LDB ALPHAR ALPHAI BETA VL LDVL VR LDVR WORK
     LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGEV3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20398 ':INT32)
                              (LDA-REF20400 ':INT32)
                              (LDB-REF20402 ':INT32)
                              (LDVL-REF20407 ':INT32)
                              (LDVR-REF20409 ':INT32)
                              (LWORK-REF20411 ':INT32)
                              (INFO-REF20412 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20398 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20400 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20402 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF20407 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF20409 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20411 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20412 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20399 A)
                                            (B-REF20401 B)
                                            (ALPHAR-REF20403 ALPHAR)
                                            (ALPHAI-REF20404 ALPHAI)
                                            (BETA-REF20405 BETA)
                                            (VL-REF20406 VL)
                                            (VR-REF20408 VR)
                                            (WORK-REF20410 WORK))
      (%%DGGEV3 JOBVL JOBVR N-REF20398 A-REF20399 LDA-REF20400
       B-REF20401 LDB-REF20402 ALPHAR-REF20403 ALPHAI-REF20404
       BETA-REF20405 VL-REF20406 LDVL-REF20407 VR-REF20408
       LDVR-REF20409 WORK-REF20410 LWORK-REF20411 INFO-REF20412))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%XERBLA "xerbla_")
  ((SRNAME (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %XERBLA (SRNAME INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%XERBLA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SRNAME)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((INFO-REF20414 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20414 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%XERBLA SRNAME INFO-REF20414))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTGSEN "dtgsen_")
  ((IJOB :FOREIGN-ADDRESS) (WANTQ :FOREIGN-ADDRESS)
   (WANTZ :FOREIGN-ADDRESS) (SELECT :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (ALPHAR :FOREIGN-ADDRESS) (ALPHAI :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (PL :FOREIGN-ADDRESS) (PR :FOREIGN-ADDRESS) (DIF :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTGSEN
    (IJOB WANTQ WANTZ SELECT N A LDA B LDB ALPHAR ALPHAI BETA Q LDQ Z
     LDZ M PL PR DIF WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGSEN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF20415 ':INT32)
                              (WANTQ-REF20416 ':INT32)
                              (WANTZ-REF20417 ':INT32)
                              (N-REF20419 ':INT32)
                              (LDA-REF20421 ':INT32)
                              (LDB-REF20423 ':INT32)
                              (LDQ-REF20428 ':INT32)
                              (LDZ-REF20430 ':INT32)
                              (M-REF20431 ':INT32)
                              (PL-REF20432 ':DOUBLE)
                              (PR-REF20433 ':DOUBLE)
                              (LWORK-REF20436 ':INT32)
                              (LIWORK-REF20438 ':INT32)
                              (INFO-REF20439 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF20415 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF20416 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20417 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20419 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20421 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20423 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF20428 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20430 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20431 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF20432 :DOUBLE) PL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF20433 :DOUBLE) PR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20436 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF20438 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20439 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF20418 SELECT)
                                            (A-REF20420 A)
                                            (B-REF20422 B)
                                            (ALPHAR-REF20424 ALPHAR)
                                            (ALPHAI-REF20425 ALPHAI)
                                            (BETA-REF20426 BETA)
                                            (Q-REF20427 Q)
                                            (Z-REF20429 Z)
                                            (DIF-REF20434 DIF)
                                            (WORK-REF20435 WORK)
                                            (IWORK-REF20437 IWORK))
      (%%DTGSEN IJOB-REF20415 WANTQ-REF20416 WANTZ-REF20417
       SELECT-REF20418 N-REF20419 A-REF20420 LDA-REF20421 B-REF20422
       LDB-REF20423 ALPHAR-REF20424 ALPHAI-REF20425 BETA-REF20426
       Q-REF20427 LDQ-REF20428 Z-REF20429 LDZ-REF20430 M-REF20431
       PL-REF20432 PR-REF20433 DIF-REF20434 WORK-REF20435
       LWORK-REF20436 IWORK-REF20437 LIWORK-REF20438 INFO-REF20439))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGTTRF "zgttrf_")
  ((N :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (DU :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGTTRF (N DL D DU DU2 IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTTRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20440 ':INT32)
                              (INFO-REF20446 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20440 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20446 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF20441 DL)
                                            (D-REF20442 D)
                                            (DU-REF20443 DU)
                                            (DU2-REF20444 DU2)
                                            (IPIV-REF20445 IPIV))
      (%%ZGTTRF N-REF20440 DL-REF20441 D-REF20442 DU-REF20443
       DU2-REF20444 IPIV-REF20445 INFO-REF20446))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORGR2 "dorgr2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORGR2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGR2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20447 ':INT32) (N-REF20448 ':INT32)
                              (K-REF20449 ':INT32)
                              (LDA-REF20451 ':INT32)
                              (INFO-REF20454 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20447 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20448 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20449 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20451 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20454 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20450 A)
                                            (TAU-REF20452 TAU)
                                            (WORK-REF20453 WORK))
      (%%DORGR2 M-REF20447 N-REF20448 K-REF20449 A-REF20450
       LDA-REF20451 TAU-REF20452 WORK-REF20453 INFO-REF20454))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLANV2 "dlanv2_")
  ((A :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (RT1R :FOREIGN-ADDRESS) (RT1I :FOREIGN-ADDRESS)
   (RT2R :FOREIGN-ADDRESS) (RT2I :FOREIGN-ADDRESS)
   (CS :FOREIGN-ADDRESS) (SN :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLANV2 (A B C D RT1R RT1I RT2R RT2I CS SN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANV2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1R)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1I)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2R)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2I)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF20455 ':DOUBLE)
                              (B-REF20456 ':DOUBLE)
                              (C-REF20457 ':DOUBLE)
                              (D-REF20458 ':DOUBLE)
                              (RT1R-REF20459 ':DOUBLE)
                              (RT1I-REF20460 ':DOUBLE)
                              (RT2R-REF20461 ':DOUBLE)
                              (RT2I-REF20462 ':DOUBLE)
                              (CS-REF20463 ':DOUBLE)
                              (SN-REF20464 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF20455 :DOUBLE) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF20456 :DOUBLE) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF20457 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF D-REF20458 :DOUBLE) D)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1R-REF20459 :DOUBLE) RT1R)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1I-REF20460 :DOUBLE) RT1I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2R-REF20461 :DOUBLE) RT2R)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2I-REF20462 :DOUBLE) RT2I)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF20463 :DOUBLE) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF20464 :DOUBLE) SN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLANV2 A-REF20455 B-REF20456 C-REF20457 D-REF20458
       RT1R-REF20459 RT1I-REF20460 RT2R-REF20461 RT2I-REF20462
       CS-REF20463 SN-REF20464))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAED3 "slaed3_")
  ((K :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (RHO :FOREIGN-ADDRESS) (DLAMDA :FOREIGN-ADDRESS)
   (Q2 :FOREIGN-ADDRESS) (INDX :FOREIGN-ADDRESS)
   (CTOT :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAED3
    (K N N1 D Q LDQ RHO DLAMDA Q2 INDX CTOT W S INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DLAMDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    CTOT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF20465 ':INT32) (N-REF20466 ':INT32)
                              (N1-REF20467 ':INT32)
                              (LDQ-REF20470 ':INT32)
                              (RHO-REF20471 ':FLOAT)
                              (INFO-REF20478 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20465 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20466 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF20467 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF20470 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF20471 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20478 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20468 D)
                                            (Q-REF20469 Q)
                                            (DLAMDA-REF20472 DLAMDA)
                                            (Q2-REF20473 Q2)
                                            (INDX-REF20474 INDX)
                                            (CTOT-REF20475 CTOT)
                                            (W-REF20476 W)
                                            (S-REF20477 S))
      (%%SLAED3 K-REF20465 N-REF20466 N1-REF20467 D-REF20468 Q-REF20469
       LDQ-REF20470 RHO-REF20471 DLAMDA-REF20472 Q2-REF20473
       INDX-REF20474 CTOT-REF20475 W-REF20476 S-REF20477
       INFO-REF20478))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEESX "dgeesx_")
  ((JOBVS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SORT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS)
   (SENSE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (SDIM :FOREIGN-ADDRESS) (WR :FOREIGN-ADDRESS) (WI :FOREIGN-ADDRESS)
   (VS :FOREIGN-ADDRESS) (LDVS :FOREIGN-ADDRESS)
   (RCONDE :FOREIGN-ADDRESS) (RCONDV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (BWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEESX
    (JOBVS SORT SELECT SENSE N A LDA SDIM WR WI VS LDVS RCONDE RCONDV
     WORK LWORK IWORK LIWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEESX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCONDE)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCONDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF20481 ':INT32)
                              (N-REF20483 ':INT32)
                              (LDA-REF20485 ':INT32)
                              (SDIM-REF20486 ':INT32)
                              (LDVS-REF20490 ':INT32)
                              (RCONDE-REF20491 ':DOUBLE)
                              (RCONDV-REF20492 ':DOUBLE)
                              (LWORK-REF20494 ':INT32)
                              (LIWORK-REF20496 ':INT32)
                              (INFO-REF20498 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF20481 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20483 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20485 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF20486 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF20490 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF20491 :DOUBLE) RCONDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF20492 :DOUBLE) RCONDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20494 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF20496 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20498 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20484 A)
                                            (WR-REF20487 WR)
                                            (WI-REF20488 WI)
                                            (VS-REF20489 VS)
                                            (WORK-REF20493 WORK)
                                            (IWORK-REF20495 IWORK)
                                            (BWORK-REF20497 BWORK))
      (%%DGEESX JOBVS SORT SELECT-REF20481 SENSE N-REF20483 A-REF20484
       LDA-REF20485 SDIM-REF20486 WR-REF20487 WI-REF20488 VS-REF20489
       LDVS-REF20490 RCONDE-REF20491 RCONDV-REF20492 WORK-REF20493
       LWORK-REF20494 IWORK-REF20495 LIWORK-REF20496 BWORK-REF20497
       INFO-REF20498))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTRI2X "ssytri2x_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRI2X (UPLO N A LDA IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI2X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20500 ':INT32)
                              (LDA-REF20502 ':INT32)
                              (NB-REF20505 ':INT32)
                              (INFO-REF20506 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20500 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20502 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20505 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20506 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20501 A)
                                            (IPIV-REF20503 IPIV)
                                            (WORK-REF20504 WORK))
      (%%SSYTRI2X UPLO N-REF20500 A-REF20501 LDA-REF20502 IPIV-REF20503
       WORK-REF20504 NB-REF20505 INFO-REF20506))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEMLQT "sgemlqt_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (MB :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEMLQT
    (SIDE TRANS M N K MB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEMLQT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20509 ':INT32) (N-REF20510 ':INT32)
                              (K-REF20511 ':INT32)
                              (MB-REF20512 ':INT32)
                              (LDV-REF20514 ':INT32)
                              (LDT-REF20516 ':INT32)
                              (LDC-REF20518 ':INT32)
                              (INFO-REF20520 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20509 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20510 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20511 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF20512 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20514 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20516 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20518 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20520 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20513 V)
                                            (T-REF20515 T)
                                            (C-REF20517 C)
                                            (WORK-REF20519 WORK))
      (%%SGEMLQT SIDE TRANS M-REF20509 N-REF20510 K-REF20511
       MB-REF20512 V-REF20513 LDV-REF20514 T-REF20515 LDT-REF20516
       C-REF20517 LDC-REF20518 WORK-REF20519 INFO-REF20520))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNCSD "cuncsd_")
  ((JOBU1 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU2 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV1T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV2T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIGNS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X12 :FOREIGN-ADDRESS) (LDX12 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (X22 :FOREIGN-ADDRESS) (LDX22 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (U1 :FOREIGN-ADDRESS)
   (LDU1 :FOREIGN-ADDRESS) (U2 :FOREIGN-ADDRESS)
   (LDU2 :FOREIGN-ADDRESS) (V1T :FOREIGN-ADDRESS)
   (LDV1T :FOREIGN-ADDRESS) (V2T :FOREIGN-ADDRESS)
   (LDV2T :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNCSD
    (JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M P Q X11 LDX11 X12 LDX12
     X21 LDX21 X22 LDX22 THETA U1 LDU1 U2 LDU2 V1T LDV1T V2T LDV2T WORK
     LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNCSD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X12)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X22)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    U1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    U2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V1T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V2T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20527 ':INT32) (P-REF20528 ':INT32)
                              (Q-REF20529 ':INT32)
                              (LDX11-REF20531 ':INT32)
                              (LDX12-REF20533 ':INT32)
                              (LDX21-REF20535 ':INT32)
                              (LDX22-REF20537 ':INT32)
                              (LDU1-REF20540 ':INT32)
                              (LDU2-REF20542 ':INT32)
                              (LDV1T-REF20544 ':INT32)
                              (LDV2T-REF20546 ':INT32)
                              (LWORK-REF20548 ':INT32)
                              (LRWORK-REF20550 ':INT32)
                              (INFO-REF20552 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20527 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF20528 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF20529 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF20531 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF20533 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF20535 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF20537 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF20540 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF20542 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF20544 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF20546 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20548 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF20550 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20552 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF20530 X11)
                                            (X12-REF20532 X12)
                                            (X21-REF20534 X21)
                                            (X22-REF20536 X22)
                                            (THETA-REF20538 THETA)
                                            (U1-REF20539 U1)
                                            (U2-REF20541 U2)
                                            (V1T-REF20543 V1T)
                                            (V2T-REF20545 V2T)
                                            (WORK-REF20547 WORK)
                                            (RWORK-REF20549 RWORK)
                                            (IWORK-REF20551 IWORK))
      (%%CUNCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF20527
       P-REF20528 Q-REF20529 X11-REF20530 LDX11-REF20531 X12-REF20532
       LDX12-REF20533 X21-REF20534 LDX21-REF20535 X22-REF20536
       LDX22-REF20537 THETA-REF20538 U1-REF20539 LDU1-REF20540
       U2-REF20541 LDU2-REF20542 V1T-REF20543 LDV1T-REF20544
       V2T-REF20545 LDV2T-REF20546 WORK-REF20547 LWORK-REF20548
       RWORK-REF20549 LRWORK-REF20550 IWORK-REF20551 INFO-REF20552))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGESC2 "zgesc2_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (RHS :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (JPIV :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGESC2 (N A LDA RHS IPIV JPIV SCALE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESC2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    RHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20553 ':INT32)
                              (LDA-REF20555 ':INT32)
                              (SCALE-REF20559 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20553 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20555 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF20559 :DOUBLE) SCALE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20554 A)
                                            (RHS-REF20556 RHS)
                                            (IPIV-REF20557 IPIV)
                                            (JPIV-REF20558 JPIV))
      (%%ZGESC2 N-REF20553 A-REF20554 LDA-REF20555 RHS-REF20556
       IPIV-REF20557 JPIV-REF20558 SCALE-REF20559))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSTEIN "zstein_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (IBLOCK :FOREIGN-ADDRESS)
   (ISPLIT :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSTEIN
    (N D E M W IBLOCK ISPLIT Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSTEIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IBLOCK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISPLIT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20560 ':INT32) (M-REF20563 ':INT32)
                              (LDZ-REF20568 ':INT32)
                              (INFO-REF20572 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20560 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20563 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20568 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20572 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20561 D)
                                            (E-REF20562 E)
                                            (W-REF20564 W)
                                            (IBLOCK-REF20565 IBLOCK)
                                            (ISPLIT-REF20566 ISPLIT)
                                            (Z-REF20567 Z)
                                            (WORK-REF20569 WORK)
                                            (IWORK-REF20570 IWORK)
                                            (IFAIL-REF20571 IFAIL))
      (%%ZSTEIN N-REF20560 D-REF20561 E-REF20562 M-REF20563 W-REF20564
       IBLOCK-REF20565 ISPLIT-REF20566 Z-REF20567 LDZ-REF20568
       WORK-REF20569 IWORK-REF20570 IFAIL-REF20571 INFO-REF20572))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%SSB2ST_KERNELS "ssb2st_kernels_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (WANTZ :FOREIGN-ADDRESS) (TTYPE :FOREIGN-ADDRESS)
   (ST :FOREIGN-ADDRESS) (ED :FOREIGN-ADDRESS) (SWEEP :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS) (IB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSB2ST_KERNELS
    (UPLO WANTZ TTYPE ST ED SWEEP N NB IB A LDA V TAU LDVT WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSB2ST_KERNELS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SWEEP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF20574 ':INT32)
                              (TTYPE-REF20575 ':INT32)
                              (ST-REF20576 ':INT32)
                              (ED-REF20577 ':INT32)
                              (SWEEP-REF20578 ':INT32)
                              (N-REF20579 ':INT32)
                              (NB-REF20580 ':INT32)
                              (IB-REF20581 ':INT32)
                              (LDA-REF20583 ':INT32)
                              (LDVT-REF20586 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20574 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF20575 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF20576 :INT32) ST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF20577 :INT32) ED)
    (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF20578 :INT32) SWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20579 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20580 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF20581 :INT32) IB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20583 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF20586 :INT32) LDVT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20582 A)
                                            (V-REF20584 V)
                                            (TAU-REF20585 TAU)
                                            (WORK-REF20587 WORK))
      (%%SSB2ST_KERNELS UPLO WANTZ-REF20574 TTYPE-REF20575 ST-REF20576
       ED-REF20577 SWEEP-REF20578 N-REF20579 NB-REF20580 IB-REF20581
       A-REF20582 LDA-REF20583 V-REF20584 TAU-REF20585 LDVT-REF20586
       WORK-REF20587))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASD4 "dlasd4_")
  ((N :FOREIGN-ADDRESS) (I :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (DELTA :FOREIGN-ADDRESS) (RHO :FOREIGN-ADDRESS)
   (SIGMA :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASD4 (N I D Z DELTA RHO SIGMA WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD4)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DELTA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20588 ':INT32) (I-REF20589 ':INT32)
                              (RHO-REF20593 ':DOUBLE)
                              (SIGMA-REF20594 ':DOUBLE)
                              (INFO-REF20596 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20588 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF20589 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF20593 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF20594 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20596 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20590 D)
                                            (Z-REF20591 Z)
                                            (DELTA-REF20592 DELTA)
                                            (WORK-REF20595 WORK))
      (%%DLASD4 N-REF20588 I-REF20589 D-REF20590 Z-REF20591
       DELTA-REF20592 RHO-REF20593 SIGMA-REF20594 WORK-REF20595
       INFO-REF20596))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGESVDQ "dgesvdq_")
  ((JOBA (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBP (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (NUMRANK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGESVDQ
    (JOBA JOBP JOBR JOBU JOBV M N A LDA S U LDU V LDV NUMRANK IWORK
     LIWORK WORK LWORK RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVDQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NUMRANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20602 ':INT32) (N-REF20603 ':INT32)
                              (LDA-REF20605 ':INT32)
                              (LDU-REF20608 ':INT32)
                              (LDV-REF20610 ':INT32)
                              (NUMRANK-REF20611 ':INT32)
                              (LIWORK-REF20613 ':INT32)
                              (LWORK-REF20615 ':INT32)
                              (LRWORK-REF20617 ':INT32)
                              (INFO-REF20618 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20602 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20603 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20605 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF20608 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20610 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF20611 :INT32) NUMRANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF20613 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20615 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF20617 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20618 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20604 A)
                                            (S-REF20606 S)
                                            (U-REF20607 U)
                                            (V-REF20609 V)
                                            (IWORK-REF20612 IWORK)
                                            (WORK-REF20614 WORK)
                                            (RWORK-REF20616 RWORK))
      (%%DGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF20602 N-REF20603
       A-REF20604 LDA-REF20605 S-REF20606 U-REF20607 LDU-REF20608
       V-REF20609 LDV-REF20610 NUMRANK-REF20611 IWORK-REF20612
       LIWORK-REF20613 WORK-REF20614 LWORK-REF20615 RWORK-REF20616
       LRWORK-REF20617 INFO-REF20618))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHEEQUB "zheequb_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (SCOND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHEEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEQUB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20620 ':INT32)
                              (LDA-REF20622 ':INT32)
                              (SCOND-REF20624 ':DOUBLE)
                              (AMAX-REF20625 ':DOUBLE)
                              (INFO-REF20627 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20620 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20622 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20624 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20625 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20627 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20621 A)
                                            (S-REF20623 S)
                                            (WORK-REF20626 WORK))
      (%%ZHEEQUB UPLO N-REF20620 A-REF20621 LDA-REF20622 S-REF20623
       SCOND-REF20624 AMAX-REF20625 WORK-REF20626 INFO-REF20627))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGESVDX "dgesvdx_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS) (NS :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGESVDX
    (JOBU JOBVT RANGE M N A LDA VL VU IL IU NS S U LDU VT LDVT WORK
     LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVDX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20631 ':INT32) (N-REF20632 ':INT32)
                              (LDA-REF20634 ':INT32)
                              (VL-REF20635 ':DOUBLE)
                              (VU-REF20636 ':DOUBLE)
                              (IL-REF20637 ':INT32)
                              (IU-REF20638 ':INT32)
                              (NS-REF20639 ':INT32)
                              (LDU-REF20642 ':INT32)
                              (LDVT-REF20644 ':INT32)
                              (LWORK-REF20646 ':INT32)
                              (INFO-REF20648 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20631 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20632 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20634 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF20635 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF20636 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF20637 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF20638 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF20639 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF20642 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF20644 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20646 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20648 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20633 A)
                                            (S-REF20640 S)
                                            (U-REF20641 U)
                                            (VT-REF20643 VT)
                                            (WORK-REF20645 WORK)
                                            (IWORK-REF20647 IWORK))
      (%%DGESVDX JOBU JOBVT RANGE M-REF20631 N-REF20632 A-REF20633
       LDA-REF20634 VL-REF20635 VU-REF20636 IL-REF20637 IU-REF20638
       NS-REF20639 S-REF20640 U-REF20641 LDU-REF20642 VT-REF20643
       LDVT-REF20644 WORK-REF20645 LWORK-REF20646 IWORK-REF20647
       INFO-REF20648))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHPSV "chpsv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20650 ':INT32)
                              (NRHS-REF20651 ':INT32)
                              (LDB-REF20655 ':INT32)
                              (INFO-REF20656 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20650 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20651 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20655 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20656 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20652 AP)
                                            (IPIV-REF20653 IPIV)
                                            (B-REF20654 B))
      (%%CHPSV UPLO N-REF20650 NRHS-REF20651 AP-REF20652 IPIV-REF20653
       B-REF20654 LDB-REF20655 INFO-REF20656))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGBSVX "cgbsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGBSVX
    (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B LDB X
     LDX RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20659 ':INT32)
                              (KL-REF20660 ':INT32)
                              (KU-REF20661 ':INT32)
                              (NRHS-REF20662 ':INT32)
                              (LDAB-REF20664 ':INT32)
                              (LDAFB-REF20666 ':INT32)
                              (LDB-REF20672 ':INT32)
                              (LDX-REF20674 ':INT32)
                              (RCOND-REF20675 ':FLOAT)
                              (INFO-REF20680 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20659 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF20660 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF20661 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20662 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20664 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF20666 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20672 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20674 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20675 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20680 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20663 AB)
                                            (AFB-REF20665 AFB)
                                            (IPIV-REF20667 IPIV)
                                            (R-REF20669 R)
                                            (C-REF20670 C)
                                            (B-REF20671 B)
                                            (X-REF20673 X)
                                            (FERR-REF20676 FERR)
                                            (BERR-REF20677 BERR)
                                            (WORK-REF20678 WORK)
                                            (RWORK-REF20679 RWORK))
      (%%CGBSVX FACT TRANS N-REF20659 KL-REF20660 KU-REF20661
       NRHS-REF20662 AB-REF20663 LDAB-REF20664 AFB-REF20665
       LDAFB-REF20666 IPIV-REF20667 EQUED R-REF20669 C-REF20670
       B-REF20671 LDB-REF20672 X-REF20673 LDX-REF20674 RCOND-REF20675
       FERR-REF20676 BERR-REF20677 WORK-REF20678 RWORK-REF20679
       INFO-REF20680))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_LIN_BERR "zla_lin_berr_")
  ((N :FOREIGN-ADDRESS) (NZ :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_LIN_BERR (N NZ NRHS RES AYB BERR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_LIN_BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20681 ':INT32)
                              (NZ-REF20682 ':INT32)
                              (NRHS-REF20683 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20681 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF20682 :INT32) NZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20683 :INT32) NRHS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF20684 RES)
                                            (AYB-REF20685 AYB)
                                            (BERR-REF20686 BERR))
      (%%ZLA_LIN_BERR N-REF20681 NZ-REF20682 NRHS-REF20683 RES-REF20684
       AYB-REF20685 BERR-REF20686))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHESV_AA "chesv_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHESV_AA
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESV_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20688 ':INT32)
                              (NRHS-REF20689 ':INT32)
                              (LDA-REF20691 ':INT32)
                              (LDB-REF20694 ':INT32)
                              (LWORK-REF20696 ':INT32)
                              (INFO-REF20697 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20688 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20689 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20691 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20694 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20696 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20697 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20690 A)
                                            (IPIV-REF20692 IPIV)
                                            (B-REF20693 B)
                                            (WORK-REF20695 WORK))
      (%%CHESV_AA UPLO N-REF20688 NRHS-REF20689 A-REF20690 LDA-REF20691
       IPIV-REF20692 B-REF20693 LDB-REF20694 WORK-REF20695
       LWORK-REF20696 INFO-REF20697))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLANGB "zlangb_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLANGB (NORM N KL KU AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANGB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20699 ':INT32)
                              (KL-REF20700 ':INT32)
                              (KU-REF20701 ':INT32)
                              (LDAB-REF20703 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20699 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF20700 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF20701 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20703 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20702 AB)
                                            (WORK-REF20704 WORK))
      (%%ZLANGB NORM N-REF20699 KL-REF20700 KU-REF20701 AB-REF20702
       LDAB-REF20703 WORK-REF20704))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGETF2 "cgetf2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGETF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETF2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20705 ':INT32) (N-REF20706 ':INT32)
                              (LDA-REF20708 ':INT32)
                              (INFO-REF20710 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20705 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20706 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20708 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20710 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20707 A)
                                            (IPIV-REF20709 IPIV))
      (%%CGETF2 M-REF20705 N-REF20706 A-REF20707 LDA-REF20708
       IPIV-REF20709 INFO-REF20710))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLACN2 "dlacn2_")
  ((N :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (ISGN :FOREIGN-ADDRESS) (EST :FOREIGN-ADDRESS)
   (KASE :FOREIGN-ADDRESS) (ISAVE :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLACN2 (N V X ISGN EST KASE ISAVE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLACN2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISGN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISAVE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20711 ':INT32)
                              (EST-REF20715 ':DOUBLE)
                              (KASE-REF20716 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20711 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF20715 :DOUBLE) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF20716 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20712 V)
                                            (X-REF20713 X)
                                            (ISGN-REF20714 ISGN)
                                            (ISAVE-REF20717 ISAVE))
      (%%DLACN2 N-REF20711 V-REF20712 X-REF20713 ISGN-REF20714
       EST-REF20715 KASE-REF20716 ISAVE-REF20717))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORMLQ "dormlq_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORMLQ
    (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMLQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20720 ':INT32) (N-REF20721 ':INT32)
                              (K-REF20722 ':INT32)
                              (LDA-REF20724 ':INT32)
                              (LDC-REF20727 ':INT32)
                              (LWORK-REF20729 ':INT32)
                              (INFO-REF20730 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20720 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20721 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20722 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20724 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20727 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20729 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20730 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20723 A)
                                            (TAU-REF20725 TAU)
                                            (C-REF20726 C)
                                            (WORK-REF20728 WORK))
      (%%DORMLQ SIDE TRANS M-REF20720 N-REF20721 K-REF20722 A-REF20723
       LDA-REF20724 TAU-REF20725 C-REF20726 LDC-REF20727 WORK-REF20728
       LWORK-REF20729 INFO-REF20730))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAUU2 "clauu2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAUU2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAUU2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20732 ':INT32)
                              (LDA-REF20734 ':INT32)
                              (INFO-REF20735 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20732 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20734 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20735 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20733 A))
      (%%CLAUU2 UPLO N-REF20732 A-REF20733 LDA-REF20734
       INFO-REF20735))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSFRK "dsfrk_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSFRK (TRANSR UPLO TRANS N K ALPHA A LDA BETA C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSFRK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20739 ':INT32) (K-REF20740 ':INT32)
                              (ALPHA-REF20741 ':DOUBLE)
                              (LDA-REF20743 ':INT32)
                              (BETA-REF20744 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20739 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20740 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF20741 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20743 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF20744 :DOUBLE) BETA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20742 A)
                                            (C-REF20745 C))
      (%%DSFRK TRANSR UPLO TRANS N-REF20739 K-REF20740 ALPHA-REF20741
       A-REF20742 LDA-REF20743 BETA-REF20744 C-REF20745))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAPMT "clapmt_")
  ((FORWRD :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAPMT (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAPMT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF20746 ':INT32)
                              (M-REF20747 ':INT32) (N-REF20748 ':INT32)
                              (LDX-REF20750 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF20746 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20747 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20748 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20750 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20749 X)
                                            (K-REF20751 K))
      (%%CLAPMT FORWRD-REF20746 M-REF20747 N-REF20748 X-REF20749
       LDX-REF20750 K-REF20751))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLANGB "dlangb_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLANGB (NORM N KL KU AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANGB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20753 ':INT32)
                              (KL-REF20754 ':INT32)
                              (KU-REF20755 ':INT32)
                              (LDAB-REF20757 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20753 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF20754 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF20755 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20757 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20756 AB)
                                            (WORK-REF20758 WORK))
      (%%DLANGB NORM N-REF20753 KL-REF20754 KU-REF20755 AB-REF20756
       LDAB-REF20757 WORK-REF20758))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHSEIN "chsein_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EIGSRC (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (INITV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS)
   (LDH :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IFAILL :FOREIGN-ADDRESS) (IFAILR :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHSEIN
    (SIDE EIGSRC INITV SELECT N H LDH W VL LDVL VR LDVR MM M WORK RWORK
     IFAILL IFAILR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHSEIN)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EIGSRC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING INITV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAILL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAILR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20763 ':INT32)
                              (LDH-REF20765 ':INT32)
                              (LDVL-REF20768 ':INT32)
                              (LDVR-REF20770 ':INT32)
                              (MM-REF20771 ':INT32)
                              (M-REF20772 ':INT32)
                              (INFO-REF20777 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20763 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20765 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF20768 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF20770 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF20771 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20772 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20777 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF20762 SELECT)
                                            (H-REF20764 H)
                                            (W-REF20766 W)
                                            (VL-REF20767 VL)
                                            (VR-REF20769 VR)
                                            (WORK-REF20773 WORK)
                                            (RWORK-REF20774 RWORK)
                                            (IFAILL-REF20775 IFAILL)
                                            (IFAILR-REF20776 IFAILR))
      (%%CHSEIN SIDE EIGSRC INITV SELECT-REF20762 N-REF20763 H-REF20764
       LDH-REF20765 W-REF20766 VL-REF20767 LDVL-REF20768 VR-REF20769
       LDVR-REF20770 MM-REF20771 M-REF20772 WORK-REF20773
       RWORK-REF20774 IFAILL-REF20775 IFAILR-REF20776 INFO-REF20777))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETRD_2STAGE "chetrd_2stage_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (HOUS2 :FOREIGN-ADDRESS)
   (LHOUS2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRD_2STAGE
    (VECT UPLO N A LDA D E TAU HOUS2 LHOUS2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRD_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    HOUS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LHOUS2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20780 ':INT32)
                              (LDA-REF20782 ':INT32)
                              (LHOUS2-REF20787 ':INT32)
                              (LWORK-REF20789 ':INT32)
                              (INFO-REF20790 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20780 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20782 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF20787 :INT32) LHOUS2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20789 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20790 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20781 A)
                                            (D-REF20783 D)
                                            (E-REF20784 E)
                                            (TAU-REF20785 TAU)
                                            (HOUS2-REF20786 HOUS2)
                                            (WORK-REF20788 WORK))
      (%%CHETRD_2STAGE VECT UPLO N-REF20780 A-REF20781 LDA-REF20782
       D-REF20783 E-REF20784 TAU-REF20785 HOUS2-REF20786
       LHOUS2-REF20787 WORK-REF20788 LWORK-REF20789 INFO-REF20790))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYSV_ROOK "dsysv_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYSV_ROOK
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSV_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20792 ':INT32)
                              (NRHS-REF20793 ':INT32)
                              (LDA-REF20795 ':INT32)
                              (LDB-REF20798 ':INT32)
                              (LWORK-REF20800 ':INT32)
                              (INFO-REF20801 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20792 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20793 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20795 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20798 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20800 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20801 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20794 A)
                                            (IPIV-REF20796 IPIV)
                                            (B-REF20797 B)
                                            (WORK-REF20799 WORK))
      (%%DSYSV_ROOK UPLO N-REF20792 NRHS-REF20793 A-REF20794
       LDA-REF20795 IPIV-REF20796 B-REF20797 LDB-REF20798 WORK-REF20799
       LWORK-REF20800 INFO-REF20801))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEEVX "cgeevx_")
  ((BALANC (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SENSE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS)
   (VR :FOREIGN-ADDRESS) (LDVR :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS)
   (IHI :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS)
   (ABNRM :FOREIGN-ADDRESS) (RCONDE :FOREIGN-ADDRESS)
   (RCONDV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEEVX
    (BALANC JOBVL JOBVR SENSE N A LDA W VL LDVL VR LDVR ILO IHI SCALE
     ABNRM RCONDE RCONDV WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SCALE)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABNRM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RCONDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RCONDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20806 ':INT32)
                              (LDA-REF20808 ':INT32)
                              (LDVL-REF20811 ':INT32)
                              (LDVR-REF20813 ':INT32)
                              (ILO-REF20814 ':INT32)
                              (IHI-REF20815 ':INT32)
                              (ABNRM-REF20817 ':FLOAT)
                              (LWORK-REF20821 ':INT32)
                              (INFO-REF20823 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20806 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20808 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF20811 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF20813 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF20814 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF20815 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF20817 :FLOAT) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20821 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20823 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20807 A)
                                            (W-REF20809 W)
                                            (VL-REF20810 VL)
                                            (VR-REF20812 VR)
                                            (SCALE-REF20816 SCALE)
                                            (RCONDE-REF20818 RCONDE)
                                            (RCONDV-REF20819 RCONDV)
                                            (WORK-REF20820 WORK)
                                            (RWORK-REF20822 RWORK))
      (%%CGEEVX BALANC JOBVL JOBVR SENSE N-REF20806 A-REF20807
       LDA-REF20808 W-REF20809 VL-REF20810 LDVL-REF20811 VR-REF20812
       LDVR-REF20813 ILO-REF20814 IHI-REF20815 SCALE-REF20816
       ABNRM-REF20817 RCONDE-REF20818 RCONDV-REF20819 WORK-REF20820
       LWORK-REF20821 RWORK-REF20822 INFO-REF20823))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEQRT3 "dgeqrt3_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEQRT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRT3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20824 ':INT32) (N-REF20825 ':INT32)
                              (LDA-REF20827 ':INT32)
                              (LDT-REF20829 ':INT32)
                              (INFO-REF20830 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20824 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20825 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20827 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20829 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20830 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20826 A)
                                            (T-REF20828 T))
      (%%DGEQRT3 M-REF20824 N-REF20825 A-REF20826 LDA-REF20827
       T-REF20828 LDT-REF20829 INFO-REF20830))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRD_SY2SB "dsytrd_sy2sb_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRD_SY2SB
    (UPLO N KD A LDA AB LDAB TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRD_SY2SB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20832 ':INT32)
                              (KD-REF20833 ':INT32)
                              (LDA-REF20835 ':INT32)
                              (LDAB-REF20837 ':INT32)
                              (LWORK-REF20840 ':INT32)
                              (INFO-REF20841 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20832 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF20833 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20835 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20837 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20840 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20841 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20834 A)
                                            (AB-REF20836 AB)
                                            (TAU-REF20838 TAU)
                                            (WORK-REF20839 WORK))
      (%%DSYTRD_SY2SB UPLO N-REF20832 KD-REF20833 A-REF20834
       LDA-REF20835 AB-REF20836 LDAB-REF20837 TAU-REF20838
       WORK-REF20839 LWORK-REF20840 INFO-REF20841))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEQRT "dgeqrt_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEQRT (M N NB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20842 ':INT32) (N-REF20843 ':INT32)
                              (NB-REF20844 ':INT32)
                              (LDA-REF20846 ':INT32)
                              (LDT-REF20848 ':INT32)
                              (INFO-REF20850 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20842 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20843 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20844 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20846 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20848 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20850 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20845 A)
                                            (T-REF20847 T)
                                            (WORK-REF20849 WORK))
      (%%DGEQRT M-REF20842 N-REF20843 NB-REF20844 A-REF20845
       LDA-REF20846 T-REF20847 LDT-REF20848 WORK-REF20849
       INFO-REF20850))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGGEV "sggev_")
  ((JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (ALPHAR :FOREIGN-ADDRESS) (ALPHAI :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGGEV
    (JOBVL JOBVR N A LDA B LDB ALPHAR ALPHAI BETA VL LDVL VR LDVR WORK
     LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20853 ':INT32)
                              (LDA-REF20855 ':INT32)
                              (LDB-REF20857 ':INT32)
                              (LDVL-REF20862 ':INT32)
                              (LDVR-REF20864 ':INT32)
                              (LWORK-REF20866 ':INT32)
                              (INFO-REF20867 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20853 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20855 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20857 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF20862 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF20864 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20866 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20867 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20854 A)
                                            (B-REF20856 B)
                                            (ALPHAR-REF20858 ALPHAR)
                                            (ALPHAI-REF20859 ALPHAI)
                                            (BETA-REF20860 BETA)
                                            (VL-REF20861 VL)
                                            (VR-REF20863 VR)
                                            (WORK-REF20865 WORK))
      (%%SGGEV JOBVL JOBVR N-REF20853 A-REF20854 LDA-REF20855
       B-REF20856 LDB-REF20857 ALPHAR-REF20858 ALPHAI-REF20859
       BETA-REF20860 VL-REF20861 LDVL-REF20862 VR-REF20863
       LDVR-REF20864 WORK-REF20865 LWORK-REF20866 INFO-REF20867))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPBSVX "spbsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPBSVX
    (FACT UPLO N KD NRHS AB LDAB AFB LDAFB EQUED S B LDB X LDX RCOND
     FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20870 ':INT32)
                              (KD-REF20871 ':INT32)
                              (NRHS-REF20872 ':INT32)
                              (LDAB-REF20874 ':INT32)
                              (LDAFB-REF20876 ':INT32)
                              (LDB-REF20880 ':INT32)
                              (LDX-REF20882 ':INT32)
                              (RCOND-REF20883 ':FLOAT)
                              (INFO-REF20888 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20870 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF20871 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20872 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20874 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF20876 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20880 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20882 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20883 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20888 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20873 AB)
                                            (AFB-REF20875 AFB)
                                            (S-REF20878 S)
                                            (B-REF20879 B)
                                            (X-REF20881 X)
                                            (FERR-REF20884 FERR)
                                            (BERR-REF20885 BERR)
                                            (WORK-REF20886 WORK)
                                            (IWORK-REF20887 IWORK))
      (%%SPBSVX FACT UPLO N-REF20870 KD-REF20871 NRHS-REF20872
       AB-REF20873 LDAB-REF20874 AFB-REF20875 LDAFB-REF20876 EQUED
       S-REF20878 B-REF20879 LDB-REF20880 X-REF20881 LDX-REF20882
       RCOND-REF20883 FERR-REF20884 BERR-REF20885 WORK-REF20886
       IWORK-REF20887 INFO-REF20888))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_SYRCOND_X "zla_syrcond_x_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_SYRCOND_X
    (UPLO N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_SYRCOND_X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20890 ':INT32)
                              (LDA-REF20892 ':INT32)
                              (LDAF-REF20894 ':INT32)
                              (INFO-REF20897 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20890 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20892 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20894 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20897 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20891 A)
                                            (AF-REF20893 AF)
                                            (IPIV-REF20895 IPIV)
                                            (X-REF20896 X)
                                            (WORK-REF20898 WORK)
                                            (RWORK-REF20899 RWORK))
      (%%ZLA_SYRCOND_X UPLO N-REF20890 A-REF20891 LDA-REF20892
       AF-REF20893 LDAF-REF20894 IPIV-REF20895 X-REF20896 INFO-REF20897
       WORK-REF20898 RWORK-REF20899))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGBRFSX "sgbrfsx_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGBRFSX
    (TRANS EQUED N KL KU NRHS AB LDAB AFB LDAFB IPIV R C B LDB X LDX
     RCOND BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
     WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBRFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20902 ':INT32)
                              (KL-REF20903 ':INT32)
                              (KU-REF20904 ':INT32)
                              (NRHS-REF20905 ':INT32)
                              (LDAB-REF20907 ':INT32)
                              (LDAFB-REF20909 ':INT32)
                              (LDB-REF20914 ':INT32)
                              (LDX-REF20916 ':INT32)
                              (RCOND-REF20917 ':FLOAT)
                              (N_ERR_BNDS-REF20919 ':INT32)
                              (NPARAMS-REF20922 ':INT32)
                              (INFO-REF20926 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20902 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF20903 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF20904 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20905 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20907 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF20909 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20914 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20916 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20917 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF20919 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF20922 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20926 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20906 AB)
                                            (AFB-REF20908 AFB)
                                            (IPIV-REF20910 IPIV)
                                            (R-REF20911 R)
                                            (C-REF20912 C)
                                            (B-REF20913 B)
                                            (X-REF20915 X)
                                            (BERR-REF20918 BERR)
                                            (ERR_BNDS_NORM-REF20920
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF20921
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF20923 PARAMS)
                                            (WORK-REF20924 WORK)
                                            (IWORK-REF20925 IWORK))
      (%%SGBRFSX TRANS EQUED N-REF20902 KL-REF20903 KU-REF20904
       NRHS-REF20905 AB-REF20906 LDAB-REF20907 AFB-REF20908
       LDAFB-REF20909 IPIV-REF20910 R-REF20911 C-REF20912 B-REF20913
       LDB-REF20914 X-REF20915 LDX-REF20916 RCOND-REF20917
       BERR-REF20918 N_ERR_BNDS-REF20919 ERR_BNDS_NORM-REF20920
       ERR_BNDS_COMP-REF20921 NPARAMS-REF20922 PARAMS-REF20923
       WORK-REF20924 IWORK-REF20925 INFO-REF20926))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLACRT "clacrt_")
  ((N :FOREIGN-ADDRESS) (CX :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS)
   (CY :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLACRT (N CX INCX CY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACRT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    CX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    CY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20927 ':INT32)
                              (INCX-REF20929 ':INT32)
                              (INCY-REF20931 ':INT32)
                              (C-REF20932
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (S-REF20933
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20927 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20929 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20931 :INT32) INCY)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              C-REF20932
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART C)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              S-REF20933
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART S)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF20928 CX)
                                            (CY-REF20930 CY))
      (%%CLACRT N-REF20927 CX-REF20928 INCX-REF20929 CY-REF20930
       INCY-REF20931 C-REF20932 S-REF20933))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETRI_3X "zhetri_3x_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRI_3X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20935 ':INT32)
                              (LDA-REF20937 ':INT32)
                              (NB-REF20941 ':INT32)
                              (INFO-REF20942 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20935 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20937 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20941 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20942 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20936 A)
                                            (E-REF20938 E)
                                            (IPIV-REF20939 IPIV)
                                            (WORK-REF20940 WORK))
      (%%ZHETRI_3X UPLO N-REF20935 A-REF20936 LDA-REF20937 E-REF20938
       IPIV-REF20939 WORK-REF20940 NB-REF20941 INFO-REF20942))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPTTRF "spttrf_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPTTRF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTTRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20943 ':INT32)
                              (INFO-REF20946 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20943 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20946 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20944 D)
                                            (E-REF20945 E))
      (%%SPTTRF N-REF20943 D-REF20944 E-REF20945 INFO-REF20946))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETRD "chetrd_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRD (UPLO N A LDA D E TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20948 ':INT32)
                              (LDA-REF20950 ':INT32)
                              (LWORK-REF20955 ':INT32)
                              (INFO-REF20956 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20948 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20950 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20955 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20956 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20949 A)
                                            (D-REF20951 D)
                                            (E-REF20952 E)
                                            (TAU-REF20953 TAU)
                                            (WORK-REF20954 WORK))
      (%%CHETRD UPLO N-REF20948 A-REF20949 LDA-REF20950 D-REF20951
       E-REF20952 TAU-REF20953 WORK-REF20954 LWORK-REF20955
       INFO-REF20956))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNGTSQR "cungtsqr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNGTSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGTSQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20957 ':INT32) (N-REF20958 ':INT32)
                              (MB-REF20959 ':INT32)
                              (NB-REF20960 ':INT32)
                              (LDA-REF20962 ':INT32)
                              (LDT-REF20964 ':INT32)
                              (LWORK-REF20966 ':INT32)
                              (INFO-REF20967 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20957 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20958 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF20959 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20960 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20962 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20964 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20966 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20967 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20961 A)
                                            (T-REF20963 T)
                                            (WORK-REF20965 WORK))
      (%%CUNGTSQR M-REF20957 N-REF20958 MB-REF20959 NB-REF20960
       A-REF20961 LDA-REF20962 T-REF20963 LDT-REF20964 WORK-REF20965
       LWORK-REF20966 INFO-REF20967))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CBDSQR "cbdsqr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NCVT :FOREIGN-ADDRESS) (NRU :FOREIGN-ADDRESS)
   (NCC :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS)
   (LDU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CBDSQR
    (UPLO N NCVT NRU NCC D E VT LDVT U LDU C LDC RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CBDSQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20969 ':INT32)
                              (NCVT-REF20970 ':INT32)
                              (NRU-REF20971 ':INT32)
                              (NCC-REF20972 ':INT32)
                              (LDVT-REF20976 ':INT32)
                              (LDU-REF20978 ':INT32)
                              (LDC-REF20980 ':INT32)
                              (INFO-REF20982 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20969 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF20970 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF20971 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF20972 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF20976 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF20978 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20980 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20982 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20973 D)
                                            (E-REF20974 E)
                                            (VT-REF20975 VT)
                                            (U-REF20977 U)
                                            (C-REF20979 C)
                                            (RWORK-REF20981 RWORK))
      (%%CBDSQR UPLO N-REF20969 NCVT-REF20970 NRU-REF20971 NCC-REF20972
       D-REF20973 E-REF20974 VT-REF20975 LDVT-REF20976 U-REF20977
       LDU-REF20978 C-REF20979 LDC-REF20980 RWORK-REF20981
       INFO-REF20982))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGELQ "cgelq_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (TSIZE :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGELQ (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20983 ':INT32) (N-REF20984 ':INT32)
                              (LDA-REF20986 ':INT32)
                              (TSIZE-REF20988 ':INT32)
                              (LWORK-REF20990 ':INT32)
                              (INFO-REF20991 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20983 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20984 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20986 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF20988 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20990 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20991 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20985 A)
                                            (T-REF20987 T)
                                            (WORK-REF20989 WORK))
      (%%CGELQ M-REF20983 N-REF20984 A-REF20985 LDA-REF20986 T-REF20987
       TSIZE-REF20988 WORK-REF20989 LWORK-REF20990 INFO-REF20991))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARFT "dlarft_")
  ((DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARFT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20994 ':INT32) (K-REF20995 ':INT32)
                              (LDV-REF20997 ':INT32)
                              (LDT-REF21000 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20994 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20995 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20997 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21000 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20996 V)
                                            (TAU-REF20998 TAU)
                                            (T-REF20999 T))
      (%%DLARFT DIRECT STOREV N-REF20994 K-REF20995 V-REF20996
       LDV-REF20997 TAU-REF20998 T-REF20999 LDT-REF21000))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPTSV "cptsv_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPTSV (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTSV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21001 ':INT32)
                              (NRHS-REF21002 ':INT32)
                              (LDB-REF21006 ':INT32)
                              (INFO-REF21007 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21001 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21002 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21006 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21007 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21003 D)
                                            (E-REF21004 E)
                                            (B-REF21005 B))
      (%%CPTSV N-REF21001 NRHS-REF21002 D-REF21003 E-REF21004
       B-REF21005 LDB-REF21006 INFO-REF21007))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLATDF "slatdf_")
  ((IJOB :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (RHS :FOREIGN-ADDRESS)
   (RDSUM :FOREIGN-ADDRESS) (RDSCAL :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (JPIV :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLATDF (IJOB N Z LDZ RHS RDSUM RDSCAL IPIV JPIV)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATDF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RHS)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSUM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSCAL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPIV))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF21008 ':INT32)
                              (N-REF21009 ':INT32)
                              (LDZ-REF21011 ':INT32)
                              (RDSUM-REF21013 ':FLOAT)
                              (RDSCAL-REF21014 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF21008 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21009 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21011 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF21013 :FLOAT) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF21014 :FLOAT) RDSCAL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF21010 Z)
                                            (RHS-REF21012 RHS)
                                            (IPIV-REF21015 IPIV)
                                            (JPIV-REF21016 JPIV))
      (%%SLATDF IJOB-REF21008 N-REF21009 Z-REF21010 LDZ-REF21011
       RHS-REF21012 RDSUM-REF21013 RDSCAL-REF21014 IPIV-REF21015
       JPIV-REF21016))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAESY "claesy_")
  ((A :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (RT1 :FOREIGN-ADDRESS) (RT2 :FOREIGN-ADDRESS)
   (EVSCAL :FOREIGN-ADDRESS) (CS1 :FOREIGN-ADDRESS)
   (SN1 :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAESY (A B C RT1 RT2 EVSCAL CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAESY)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    RT1)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    RT2)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    EVSCAL)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    CS1)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF21017
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (B-REF21018
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (C-REF21019
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (RT1-REF21020
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (RT2-REF21021
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (EVSCAL-REF21022
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (CS1-REF21023
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (SN1-REF21024
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              A-REF21017
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART A)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              B-REF21018
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART B)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              C-REF21019
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART C)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              RT1-REF21020
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART RT1)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART RT1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              RT2-REF21021
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART RT2)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART RT2)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              EVSCAL-REF21022
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART EVSCAL)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART EVSCAL)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              CS1-REF21023
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CS1)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART CS1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              SN1-REF21024
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN1)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART SN1)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CLAESY A-REF21017 B-REF21018 C-REF21019 RT1-REF21020
       RT2-REF21021 EVSCAL-REF21022 CS1-REF21023 SN1-REF21024))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STPTRI "stptri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STPTRI (UPLO DIAG N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21027 ':INT32)
                              (INFO-REF21029 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21027 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21029 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21028 AP))
      (%%STPTRI UPLO DIAG N-REF21027 AP-REF21028 INFO-REF21029))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETRI "zhetri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETRI (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21031 ':INT32)
                              (LDA-REF21033 ':INT32)
                              (INFO-REF21036 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21031 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21033 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21036 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21032 A)
                                            (IPIV-REF21034 IPIV)
                                            (WORK-REF21035 WORK))
      (%%ZHETRI UPLO N-REF21031 A-REF21032 LDA-REF21033 IPIV-REF21034
       WORK-REF21035 INFO-REF21036))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORGLQ "dorglq_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORGLQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGLQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21037 ':INT32) (N-REF21038 ':INT32)
                              (K-REF21039 ':INT32)
                              (LDA-REF21041 ':INT32)
                              (LWORK-REF21044 ':INT32)
                              (INFO-REF21045 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21037 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21038 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21039 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21041 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21044 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21045 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21040 A)
                                            (TAU-REF21042 TAU)
                                            (WORK-REF21043 WORK))
      (%%DORGLQ M-REF21037 N-REF21038 K-REF21039 A-REF21040
       LDA-REF21041 TAU-REF21042 WORK-REF21043 LWORK-REF21044
       INFO-REF21045))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASV2 "dlasv2_")
  ((F :FOREIGN-ADDRESS) (G :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS)
   (SSMIN :FOREIGN-ADDRESS) (SSMAX :FOREIGN-ADDRESS)
   (SNR :FOREIGN-ADDRESS) (CSR :FOREIGN-ADDRESS) (SNL :FOREIGN-ADDRESS)
   (CSL :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASV2 (F G H SSMIN SSMAX SNR CSR SNL CSL)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASV2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT F)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT H)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMAX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNR)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSR)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSL))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF21046 ':DOUBLE)
                              (G-REF21047 ':DOUBLE)
                              (H-REF21048 ':DOUBLE)
                              (SSMIN-REF21049 ':DOUBLE)
                              (SSMAX-REF21050 ':DOUBLE)
                              (SNR-REF21051 ':DOUBLE)
                              (CSR-REF21052 ':DOUBLE)
                              (SNL-REF21053 ':DOUBLE)
                              (CSL-REF21054 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF21046 :DOUBLE) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF21047 :DOUBLE) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF H-REF21048 :DOUBLE) H)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF21049 :DOUBLE) SSMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF21050 :DOUBLE) SSMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF21051 :DOUBLE) SNR)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF21052 :DOUBLE) CSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF21053 :DOUBLE) SNL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF21054 :DOUBLE) CSL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLASV2 F-REF21046 G-REF21047 H-REF21048 SSMIN-REF21049
       SSMAX-REF21050 SNR-REF21051 CSR-REF21052 SNL-REF21053
       CSL-REF21054))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGETRF "cgetrf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGETRF (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21055 ':INT32) (N-REF21056 ':INT32)
                              (LDA-REF21058 ':INT32)
                              (INFO-REF21060 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21055 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21056 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21058 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21060 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21057 A)
                                            (IPIV-REF21059 IPIV))
      (%%CGETRF M-REF21055 N-REF21056 A-REF21057 LDA-REF21058
       IPIV-REF21059 INFO-REF21060))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTRF_RK "zsytrf_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRF_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21062 ':INT32)
                              (LDA-REF21064 ':INT32)
                              (LWORK-REF21068 ':INT32)
                              (INFO-REF21069 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21062 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21064 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21068 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21069 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21063 A)
                                            (E-REF21065 E)
                                            (IPIV-REF21066 IPIV)
                                            (WORK-REF21067 WORK))
      (%%ZSYTRF_RK UPLO N-REF21062 A-REF21063 LDA-REF21064 E-REF21065
       IPIV-REF21066 WORK-REF21067 LWORK-REF21068 INFO-REF21069))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPOTRS "zpotrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPOTRS (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21071 ':INT32)
                              (NRHS-REF21072 ':INT32)
                              (LDA-REF21074 ':INT32)
                              (LDB-REF21076 ':INT32)
                              (INFO-REF21077 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21071 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21072 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21074 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21076 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21077 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21073 A)
                                            (B-REF21075 B))
      (%%ZPOTRS UPLO N-REF21071 NRHS-REF21072 A-REF21073 LDA-REF21074
       B-REF21075 LDB-REF21076 INFO-REF21077))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTGEVC "ctgevc_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (LDS :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (LDP :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTGEVC
    (SIDE HOWMNY SELECT N S LDS P LDP VL LDVL VR LDVR MM M WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGEVC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21081 ':INT32)
                              (LDS-REF21083 ':INT32)
                              (LDP-REF21085 ':INT32)
                              (LDVL-REF21087 ':INT32)
                              (LDVR-REF21089 ':INT32)
                              (MM-REF21090 ':INT32)
                              (M-REF21091 ':INT32)
                              (INFO-REF21094 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21081 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF21083 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF21085 :INT32) LDP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF21087 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF21089 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF21090 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21091 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21094 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF21080 SELECT)
                                            (S-REF21082 S)
                                            (P-REF21084 P)
                                            (VL-REF21086 VL)
                                            (VR-REF21088 VR)
                                            (WORK-REF21092 WORK)
                                            (RWORK-REF21093 RWORK))
      (%%CTGEVC SIDE HOWMNY SELECT-REF21080 N-REF21081 S-REF21082
       LDS-REF21083 P-REF21084 LDP-REF21085 VL-REF21086 LDVL-REF21087
       VR-REF21088 LDVR-REF21089 MM-REF21090 M-REF21091 WORK-REF21092
       RWORK-REF21093 INFO-REF21094))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTRI2 "zsytri2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRI2 (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21096 ':INT32)
                              (LDA-REF21098 ':INT32)
                              (LWORK-REF21101 ':INT32)
                              (INFO-REF21102 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21096 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21098 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21101 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21102 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21097 A)
                                            (IPIV-REF21099 IPIV)
                                            (WORK-REF21100 WORK))
      (%%ZSYTRI2 UPLO N-REF21096 A-REF21097 LDA-REF21098 IPIV-REF21099
       WORK-REF21100 LWORK-REF21101 INFO-REF21102))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SISNAN "sisnan_")
  ((SIN :FOREIGN-ADDRESS)) :RETURNING
  (:INT (COMMON-LISP:SIGNED-BYTE 32)) :RELEASE-HEAP :NEVER :ALLOW-GC
  :NEVER)

(COMMON-LISP:DEFUN %SISNAN (SIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SISNAN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((SIN-REF21103 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF SIN-REF21103 :FLOAT) SIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SISNAN SIN-REF21103))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPBCON "dpbcon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPBCON
    (UPLO N KD AB LDAB ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21105 ':INT32)
                              (KD-REF21106 ':INT32)
                              (LDAB-REF21108 ':INT32)
                              (ANORM-REF21109 ':DOUBLE)
                              (RCOND-REF21110 ':DOUBLE)
                              (INFO-REF21113 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21105 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21106 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21108 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21109 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21110 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21113 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21107 AB)
                                            (WORK-REF21111 WORK)
                                            (IWORK-REF21112 IWORK))
      (%%DPBCON UPLO N-REF21105 KD-REF21106 AB-REF21107 LDAB-REF21108
       ANORM-REF21109 RCOND-REF21110 WORK-REF21111 IWORK-REF21112
       INFO-REF21113))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%ZSYTRS_AA_2STAGE "zsytrs_aa_2stage_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TB :FOREIGN-ADDRESS) (LTB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (IPIV2 :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRS_AA_2STAGE
    (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS_AA_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21115 ':INT32)
                              (NRHS-REF21116 ':INT32)
                              (LDA-REF21118 ':INT32)
                              (LTB-REF21120 ':INT32)
                              (LDB-REF21124 ':INT32)
                              (INFO-REF21125 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21115 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21116 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21118 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF21120 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21124 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21125 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21117 A)
                                            (TB-REF21119 TB)
                                            (IPIV-REF21121 IPIV)
                                            (IPIV2-REF21122 IPIV2)
                                            (B-REF21123 B))
      (%%ZSYTRS_AA_2STAGE UPLO N-REF21115 NRHS-REF21116 A-REF21117
       LDA-REF21118 TB-REF21119 LTB-REF21120 IPIV-REF21121
       IPIV2-REF21122 B-REF21123 LDB-REF21124 INFO-REF21125))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPOTRI "cpotri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPOTRI (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21127 ':INT32)
                              (LDA-REF21129 ':INT32)
                              (INFO-REF21130 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21127 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21129 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21130 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21128 A))
      (%%CPOTRI UPLO N-REF21127 A-REF21128 LDA-REF21129
       INFO-REF21130))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPPTRI "dpptri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPPTRI (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21132 ':INT32)
                              (INFO-REF21134 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21132 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21134 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21133 AP))
      (%%DPPTRI UPLO N-REF21132 AP-REF21133 INFO-REF21134))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYTRI_3X "csytri_3x_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI_3X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21136 ':INT32)
                              (LDA-REF21138 ':INT32)
                              (NB-REF21142 ':INT32)
                              (INFO-REF21143 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21136 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21138 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21142 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21143 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21137 A)
                                            (E-REF21139 E)
                                            (IPIV-REF21140 IPIV)
                                            (WORK-REF21141 WORK))
      (%%CSYTRI_3X UPLO N-REF21136 A-REF21137 LDA-REF21138 E-REF21139
       IPIV-REF21140 WORK-REF21141 NB-REF21142 INFO-REF21143))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%ZHETRF_AA_2STAGE "zhetrf_aa_2stage_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TB :FOREIGN-ADDRESS)
   (LTB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (IPIV2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETRF_AA_2STAGE
    (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRF_AA_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21145 ':INT32)
                              (LDA-REF21147 ':INT32)
                              (LTB-REF21149 ':INT32)
                              (LWORK-REF21153 ':INT32)
                              (INFO-REF21154 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21145 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21147 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF21149 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21153 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21154 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21146 A)
                                            (TB-REF21148 TB)
                                            (IPIV-REF21150 IPIV)
                                            (IPIV2-REF21151 IPIV2)
                                            (WORK-REF21152 WORK))
      (%%ZHETRF_AA_2STAGE UPLO N-REF21145 A-REF21146 LDA-REF21147
       TB-REF21148 LTB-REF21149 IPIV-REF21150 IPIV2-REF21151
       WORK-REF21152 LWORK-REF21153 INFO-REF21154))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETRS_3 "chetrs_3_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS_3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21156 ':INT32)
                              (NRHS-REF21157 ':INT32)
                              (LDA-REF21159 ':INT32)
                              (LDB-REF21163 ':INT32)
                              (INFO-REF21164 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21156 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21157 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21159 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21163 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21164 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21158 A)
                                            (E-REF21160 E)
                                            (IPIV-REF21161 IPIV)
                                            (B-REF21162 B))
      (%%CHETRS_3 UPLO N-REF21156 NRHS-REF21157 A-REF21158 LDA-REF21159
       E-REF21160 IPIV-REF21161 B-REF21162 LDB-REF21163
       INFO-REF21164))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORG2R "sorg2r_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORG2R (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORG2R)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21165 ':INT32) (N-REF21166 ':INT32)
                              (K-REF21167 ':INT32)
                              (LDA-REF21169 ':INT32)
                              (INFO-REF21172 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21165 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21166 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21167 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21169 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21172 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21168 A)
                                            (TAU-REF21170 TAU)
                                            (WORK-REF21171 WORK))
      (%%SORG2R M-REF21165 N-REF21166 K-REF21167 A-REF21168
       LDA-REF21169 TAU-REF21170 WORK-REF21171 INFO-REF21172))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRF_ROOK "dsytrf_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRF_ROOK (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRF_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21174 ':INT32)
                              (LDA-REF21176 ':INT32)
                              (LWORK-REF21179 ':INT32)
                              (INFO-REF21180 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21174 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21176 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21179 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21180 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21175 A)
                                            (IPIV-REF21177 IPIV)
                                            (WORK-REF21178 WORK))
      (%%DSYTRF_ROOK UPLO N-REF21174 A-REF21175 LDA-REF21176
       IPIV-REF21177 WORK-REF21178 LWORK-REF21179 INFO-REF21180))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAQSY "slaqsy_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (SCOND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAQSY (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQSY)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21182 ':INT32)
                              (LDA-REF21184 ':INT32)
                              (SCOND-REF21186 ':FLOAT)
                              (AMAX-REF21187 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21182 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21184 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21186 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21187 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21183 A)
                                            (S-REF21185 S))
      (%%SLAQSY UPLO N-REF21182 A-REF21183 LDA-REF21184 S-REF21185
       SCOND-REF21186 AMAX-REF21187 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGGSVP3 "zggsvp3_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (P :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (TOLA :FOREIGN-ADDRESS) (TOLB :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGGSVP3
    (JOBU JOBV JOBQ M P N A LDA B LDB TOLA TOLB K L U LDU V LDV Q LDQ
     IWORK RWORK TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGSVP3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21192 ':INT32) (P-REF21193 ':INT32)
                              (N-REF21194 ':INT32)
                              (LDA-REF21196 ':INT32)
                              (LDB-REF21198 ':INT32)
                              (TOLA-REF21199 ':DOUBLE)
                              (TOLB-REF21200 ':DOUBLE)
                              (K-REF21201 ':INT32) (L-REF21202 ':INT32)
                              (LDU-REF21204 ':INT32)
                              (LDV-REF21206 ':INT32)
                              (LDQ-REF21208 ':INT32)
                              (LWORK-REF21213 ':INT32)
                              (INFO-REF21214 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21192 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF21193 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21194 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21196 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21198 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF21199 :DOUBLE) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF21200 :DOUBLE) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21201 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF21202 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF21204 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF21206 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF21208 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21213 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21214 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21195 A)
                                            (B-REF21197 B)
                                            (U-REF21203 U)
                                            (V-REF21205 V)
                                            (Q-REF21207 Q)
                                            (IWORK-REF21209 IWORK)
                                            (RWORK-REF21210 RWORK)
                                            (TAU-REF21211 TAU)
                                            (WORK-REF21212 WORK))
      (%%ZGGSVP3 JOBU JOBV JOBQ M-REF21192 P-REF21193 N-REF21194
       A-REF21195 LDA-REF21196 B-REF21197 LDB-REF21198 TOLA-REF21199
       TOLB-REF21200 K-REF21201 L-REF21202 U-REF21203 LDU-REF21204
       V-REF21205 LDV-REF21206 Q-REF21207 LDQ-REF21208 IWORK-REF21209
       RWORK-REF21210 TAU-REF21211 WORK-REF21212 LWORK-REF21213
       INFO-REF21214))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHEEVR_2STAGE "zheevr_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHEEVR_2STAGE
    (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
     LWORK RWORK LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVR_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21218 ':INT32)
                              (LDA-REF21220 ':INT32)
                              (VL-REF21221 ':DOUBLE)
                              (VU-REF21222 ':DOUBLE)
                              (IL-REF21223 ':INT32)
                              (IU-REF21224 ':INT32)
                              (ABSTOL-REF21225 ':DOUBLE)
                              (M-REF21226 ':INT32)
                              (LDZ-REF21229 ':INT32)
                              (LWORK-REF21232 ':INT32)
                              (LRWORK-REF21234 ':INT32)
                              (LIWORK-REF21236 ':INT32)
                              (INFO-REF21237 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21218 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21220 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF21221 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF21222 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF21223 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF21224 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF21225 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21226 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21229 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21232 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF21234 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF21236 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21237 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21219 A)
                                            (W-REF21227 W)
                                            (Z-REF21228 Z)
                                            (ISUPPZ-REF21230 ISUPPZ)
                                            (WORK-REF21231 WORK)
                                            (RWORK-REF21233 RWORK)
                                            (IWORK-REF21235 IWORK))
      (%%ZHEEVR_2STAGE JOBZ RANGE UPLO N-REF21218 A-REF21219
       LDA-REF21220 VL-REF21221 VU-REF21222 IL-REF21223 IU-REF21224
       ABSTOL-REF21225 M-REF21226 W-REF21227 Z-REF21228 LDZ-REF21229
       ISUPPZ-REF21230 WORK-REF21231 LWORK-REF21232 RWORK-REF21233
       LRWORK-REF21234 IWORK-REF21235 LIWORK-REF21236 INFO-REF21237))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPBSVX "dpbsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPBSVX
    (FACT UPLO N KD NRHS AB LDAB AFB LDAFB EQUED S B LDB X LDX RCOND
     FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21240 ':INT32)
                              (KD-REF21241 ':INT32)
                              (NRHS-REF21242 ':INT32)
                              (LDAB-REF21244 ':INT32)
                              (LDAFB-REF21246 ':INT32)
                              (LDB-REF21250 ':INT32)
                              (LDX-REF21252 ':INT32)
                              (RCOND-REF21253 ':DOUBLE)
                              (INFO-REF21258 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21240 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21241 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21242 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21244 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF21246 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21250 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21252 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21253 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21258 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21243 AB)
                                            (AFB-REF21245 AFB)
                                            (S-REF21248 S)
                                            (B-REF21249 B)
                                            (X-REF21251 X)
                                            (FERR-REF21254 FERR)
                                            (BERR-REF21255 BERR)
                                            (WORK-REF21256 WORK)
                                            (IWORK-REF21257 IWORK))
      (%%DPBSVX FACT UPLO N-REF21240 KD-REF21241 NRHS-REF21242
       AB-REF21243 LDAB-REF21244 AFB-REF21245 LDAFB-REF21246 EQUED
       S-REF21248 B-REF21249 LDB-REF21250 X-REF21251 LDX-REF21252
       RCOND-REF21253 FERR-REF21254 BERR-REF21255 WORK-REF21256
       IWORK-REF21257 INFO-REF21258))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYTRI "csytri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTRI (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21260 ':INT32)
                              (LDA-REF21262 ':INT32)
                              (INFO-REF21265 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21260 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21262 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21265 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21261 A)
                                            (IPIV-REF21263 IPIV)
                                            (WORK-REF21264 WORK))
      (%%CSYTRI UPLO N-REF21260 A-REF21261 LDA-REF21262 IPIV-REF21263
       WORK-REF21264 INFO-REF21265))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSBGVD "dsbgvd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KA :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (BB :FOREIGN-ADDRESS)
   (LDBB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSBGVD
    (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK LWORK IWORK LIWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBGVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21268 ':INT32)
                              (KA-REF21269 ':INT32)
                              (KB-REF21270 ':INT32)
                              (LDAB-REF21272 ':INT32)
                              (LDBB-REF21274 ':INT32)
                              (LDZ-REF21277 ':INT32)
                              (LWORK-REF21279 ':INT32)
                              (LIWORK-REF21281 ':INT32)
                              (INFO-REF21282 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21268 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF21269 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF21270 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21272 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF21274 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21277 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21279 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF21281 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21282 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21271 AB)
                                            (BB-REF21273 BB)
                                            (W-REF21275 W)
                                            (Z-REF21276 Z)
                                            (WORK-REF21278 WORK)
                                            (IWORK-REF21280 IWORK))
      (%%DSBGVD JOBZ UPLO N-REF21268 KA-REF21269 KB-REF21270
       AB-REF21271 LDAB-REF21272 BB-REF21273 LDBB-REF21274 W-REF21275
       Z-REF21276 LDZ-REF21277 WORK-REF21278 LWORK-REF21279
       IWORK-REF21280 LIWORK-REF21281 INFO-REF21282))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLANTB "zlantb_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLANTB (NORM UPLO DIAG N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANTB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21286 ':INT32) (K-REF21287 ':INT32)
                              (LDAB-REF21289 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21286 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21287 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21289 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21288 AB)
                                            (WORK-REF21290 WORK))
      (%%ZLANTB NORM UPLO DIAG N-REF21286 K-REF21287 AB-REF21288
       LDAB-REF21289 WORK-REF21290))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTPMLQT "ztpmlqt_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTPMLQT
    (SIDE TRANS M N K L MB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPMLQT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21293 ':INT32) (N-REF21294 ':INT32)
                              (K-REF21295 ':INT32) (L-REF21296 ':INT32)
                              (MB-REF21297 ':INT32)
                              (LDV-REF21299 ':INT32)
                              (LDT-REF21301 ':INT32)
                              (LDA-REF21303 ':INT32)
                              (LDB-REF21305 ':INT32)
                              (INFO-REF21307 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21293 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21294 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21295 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF21296 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF21297 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF21299 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21301 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21303 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21305 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21307 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF21298 V)
                                            (T-REF21300 T)
                                            (A-REF21302 A)
                                            (B-REF21304 B)
                                            (WORK-REF21306 WORK))
      (%%ZTPMLQT SIDE TRANS M-REF21293 N-REF21294 K-REF21295 L-REF21296
       MB-REF21297 V-REF21298 LDV-REF21299 T-REF21300 LDT-REF21301
       A-REF21302 LDA-REF21303 B-REF21304 LDB-REF21305 WORK-REF21306
       INFO-REF21307))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLA_PORCOND "dla_porcond_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS) (CMODE :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLA_PORCOND
    (UPLO N A LDA AF LDAF CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_PORCOND)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21309 ':INT32)
                              (LDA-REF21311 ':INT32)
                              (LDAF-REF21313 ':INT32)
                              (CMODE-REF21314 ':INT32)
                              (INFO-REF21316 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21309 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21311 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21313 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF21314 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21316 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21310 A)
                                            (AF-REF21312 AF)
                                            (C-REF21315 C)
                                            (WORK-REF21317 WORK)
                                            (IWORK-REF21318 IWORK))
      (%%DLA_PORCOND UPLO N-REF21309 A-REF21310 LDA-REF21311
       AF-REF21312 LDAF-REF21313 CMODE-REF21314 C-REF21315
       INFO-REF21316 WORK-REF21317 IWORK-REF21318))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSPTRD "ssptrd_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSPTRD (UPLO N AP D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPTRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21320 ':INT32)
                              (INFO-REF21325 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21320 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21325 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21321 AP)
                                            (D-REF21322 D)
                                            (E-REF21323 E)
                                            (TAU-REF21324 TAU))
      (%%SSPTRD UPLO N-REF21320 AP-REF21321 D-REF21322 E-REF21323
       TAU-REF21324 INFO-REF21325))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAPY2 "dlapy2_")
  ((X :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)) :RETURNING
  (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER :ALLOW-GC
  :NEVER)

(COMMON-LISP:DEFUN %DLAPY2 (X Y)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPY2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT X)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Y))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF21326 ':DOUBLE)
                              (Y-REF21327 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF21326 :DOUBLE) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF21327 :DOUBLE) Y)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAPY2 X-REF21326 Y-REF21327))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYEVD "ssyevd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYEVD
    (JOBZ UPLO N A LDA W WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21330 ':INT32)
                              (LDA-REF21332 ':INT32)
                              (LWORK-REF21335 ':INT32)
                              (LIWORK-REF21337 ':INT32)
                              (INFO-REF21338 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21330 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21332 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21335 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF21337 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21338 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21331 A)
                                            (W-REF21333 W)
                                            (WORK-REF21334 WORK)
                                            (IWORK-REF21336 IWORK))
      (%%SSYEVD JOBZ UPLO N-REF21330 A-REF21331 LDA-REF21332 W-REF21333
       WORK-REF21334 LWORK-REF21335 IWORK-REF21336 LIWORK-REF21337
       INFO-REF21338))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAPLL "slapll_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS)
   (SSMIN :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAPLL (N X INCX Y INCY SSMIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAPLL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21339 ':INT32)
                              (INCX-REF21341 ':INT32)
                              (INCY-REF21343 ':INT32)
                              (SSMIN-REF21344 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21339 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21341 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21343 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF21344 :FLOAT) SSMIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21340 X)
                                            (Y-REF21342 Y))
      (%%SLAPLL N-REF21339 X-REF21340 INCX-REF21341 Y-REF21342
       INCY-REF21343 SSMIN-REF21344))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTRSNA "ctrsna_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS)
   (VR :FOREIGN-ADDRESS) (LDVR :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (SEP :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LDWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTRSNA
    (JOB HOWMNY SELECT N T LDT VL LDVL VR LDVR S SEP MM M WORK LDWORK
     RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRSNA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SEP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21348 ':INT32)
                              (LDT-REF21350 ':INT32)
                              (LDVL-REF21352 ':INT32)
                              (LDVR-REF21354 ':INT32)
                              (MM-REF21357 ':INT32)
                              (M-REF21358 ':INT32)
                              (LDWORK-REF21360 ':INT32)
                              (INFO-REF21362 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21348 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21350 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF21352 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF21354 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF21357 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21358 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF21360 :INT32) LDWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21362 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF21347 SELECT)
                                            (T-REF21349 T)
                                            (VL-REF21351 VL)
                                            (VR-REF21353 VR)
                                            (S-REF21355 S)
                                            (SEP-REF21356 SEP)
                                            (WORK-REF21359 WORK)
                                            (RWORK-REF21361 RWORK))
      (%%CTRSNA JOB HOWMNY SELECT-REF21347 N-REF21348 T-REF21349
       LDT-REF21350 VL-REF21351 LDVL-REF21352 VR-REF21353 LDVR-REF21354
       S-REF21355 SEP-REF21356 MM-REF21357 M-REF21358 WORK-REF21359
       LDWORK-REF21360 RWORK-REF21361 INFO-REF21362))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%SSYTRS_AA_2STAGE "ssytrs_aa_2stage_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TB :FOREIGN-ADDRESS) (LTB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (IPIV2 :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRS_AA_2STAGE
    (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS_AA_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21364 ':INT32)
                              (NRHS-REF21365 ':INT32)
                              (LDA-REF21367 ':INT32)
                              (LTB-REF21369 ':INT32)
                              (LDB-REF21373 ':INT32)
                              (INFO-REF21374 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21364 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21365 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21367 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF21369 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21373 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21374 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21366 A)
                                            (TB-REF21368 TB)
                                            (IPIV-REF21370 IPIV)
                                            (IPIV2-REF21371 IPIV2)
                                            (B-REF21372 B))
      (%%SSYTRS_AA_2STAGE UPLO N-REF21364 NRHS-REF21365 A-REF21366
       LDA-REF21367 TB-REF21368 LTB-REF21369 IPIV-REF21370
       IPIV2-REF21371 B-REF21372 LDB-REF21373 INFO-REF21374))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%IEEECK "ieeeck_")
  ((ISPEC :FOREIGN-ADDRESS) (ZERO :FOREIGN-ADDRESS)
   (ONE :FOREIGN-ADDRESS))
  :RETURNING :INT :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %IEEECK (ISPEC ZERO ONE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%IEEECK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISPEC)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ZERO)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ONE))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF21375 ':INT32)
                              (ZERO-REF21376 ':FLOAT)
                              (ONE-REF21377 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF21375 :INT32) ISPEC)
    (COMMON-LISP:SETF (CFFI:MEM-REF ZERO-REF21376 :FLOAT) ZERO)
    (COMMON-LISP:SETF (CFFI:MEM-REF ONE-REF21377 :FLOAT) ONE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%IEEECK ISPEC-REF21375 ZERO-REF21376 ONE-REF21377))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGGGLM "cggglm_")
  ((N :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGGGLM (N M P A LDA B LDB D X Y WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGGLM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21378 ':INT32) (M-REF21379 ':INT32)
                              (P-REF21380 ':INT32)
                              (LDA-REF21382 ':INT32)
                              (LDB-REF21384 ':INT32)
                              (LWORK-REF21389 ':INT32)
                              (INFO-REF21390 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21378 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21379 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF21380 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21382 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21384 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21389 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21390 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21381 A)
                                            (B-REF21383 B)
                                            (D-REF21385 D)
                                            (X-REF21386 X)
                                            (Y-REF21387 Y)
                                            (WORK-REF21388 WORK))
      (%%CGGGLM N-REF21378 M-REF21379 P-REF21380 A-REF21381
       LDA-REF21382 B-REF21383 LDB-REF21384 D-REF21385 X-REF21386
       Y-REF21387 WORK-REF21388 LWORK-REF21389 INFO-REF21390))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASRT "slasrt_")
  ((ID (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASRT (ID N D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASRT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING ID)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21392 ':INT32)
                              (INFO-REF21394 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21392 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21394 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21393 D))
      (%%SLASRT ID N-REF21392 D-REF21393 INFO-REF21394))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSTEGR "sstegr_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS)
   (IU :FOREIGN-ADDRESS) (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSTEGR
    (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK LWORK
     IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEGR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21397 ':INT32)
                              (VL-REF21400 ':FLOAT)
                              (VU-REF21401 ':FLOAT)
                              (IL-REF21402 ':INT32)
                              (IU-REF21403 ':INT32)
                              (ABSTOL-REF21404 ':FLOAT)
                              (M-REF21405 ':INT32)
                              (LDZ-REF21408 ':INT32)
                              (LWORK-REF21411 ':INT32)
                              (LIWORK-REF21413 ':INT32)
                              (INFO-REF21414 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21397 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF21400 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF21401 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF21402 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF21403 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF21404 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21405 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21408 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21411 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF21413 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21414 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21398 D)
                                            (E-REF21399 E)
                                            (W-REF21406 W)
                                            (Z-REF21407 Z)
                                            (ISUPPZ-REF21409 ISUPPZ)
                                            (WORK-REF21410 WORK)
                                            (IWORK-REF21412 IWORK))
      (%%SSTEGR JOBZ RANGE N-REF21397 D-REF21398 E-REF21399 VL-REF21400
       VU-REF21401 IL-REF21402 IU-REF21403 ABSTOL-REF21404 M-REF21405
       W-REF21406 Z-REF21407 LDZ-REF21408 ISUPPZ-REF21409 WORK-REF21410
       LWORK-REF21411 IWORK-REF21412 LIWORK-REF21413 INFO-REF21414))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPBTRF "dpbtrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPBTRF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21416 ':INT32)
                              (KD-REF21417 ':INT32)
                              (LDAB-REF21419 ':INT32)
                              (INFO-REF21420 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21416 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21417 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21419 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21420 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21418 AB))
      (%%DPBTRF UPLO N-REF21416 KD-REF21417 AB-REF21418 LDAB-REF21419
       INFO-REF21420))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLASWP "zlaswp_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (K1 :FOREIGN-ADDRESS) (K2 :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLASWP (N A LDA K1 K2 IPIV INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASWP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21421 ':INT32)
                              (LDA-REF21423 ':INT32)
                              (K1-REF21424 ':INT32)
                              (K2-REF21425 ':INT32)
                              (INCX-REF21427 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21421 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21423 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF21424 :INT32) K1)
    (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF21425 :INT32) K2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21427 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21422 A)
                                            (IPIV-REF21426 IPIV))
      (%%ZLASWP N-REF21421 A-REF21422 LDA-REF21423 K1-REF21424
       K2-REF21425 IPIV-REF21426 INCX-REF21427))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGERFSX "zgerfsx_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (N_ERR_BNDS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (NPARAMS :FOREIGN-ADDRESS) (PARAMS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGERFSX
    (TRANS EQUED N NRHS A LDA AF LDAF IPIV R C B LDB X LDX RCOND BERR
     N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGERFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21430 ':INT32)
                              (NRHS-REF21431 ':INT32)
                              (LDA-REF21433 ':INT32)
                              (LDAF-REF21435 ':INT32)
                              (LDB-REF21440 ':INT32)
                              (LDX-REF21442 ':INT32)
                              (RCOND-REF21443 ':DOUBLE)
                              (N_ERR_BNDS-REF21445 ':INT32)
                              (NPARAMS-REF21448 ':INT32)
                              (INFO-REF21452 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21430 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21431 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21433 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21435 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21440 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21442 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21443 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF21445 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF21448 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21452 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21432 A)
                                            (AF-REF21434 AF)
                                            (IPIV-REF21436 IPIV)
                                            (R-REF21437 R)
                                            (C-REF21438 C)
                                            (B-REF21439 B)
                                            (X-REF21441 X)
                                            (BERR-REF21444 BERR)
                                            (ERR_BNDS_NORM-REF21446
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF21447
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF21449 PARAMS)
                                            (WORK-REF21450 WORK)
                                            (RWORK-REF21451 RWORK))
      (%%ZGERFSX TRANS EQUED N-REF21430 NRHS-REF21431 A-REF21432
       LDA-REF21433 AF-REF21434 LDAF-REF21435 IPIV-REF21436 R-REF21437
       C-REF21438 B-REF21439 LDB-REF21440 X-REF21441 LDX-REF21442
       RCOND-REF21443 BERR-REF21444 N_ERR_BNDS-REF21445
       ERR_BNDS_NORM-REF21446 ERR_BNDS_COMP-REF21447 NPARAMS-REF21448
       PARAMS-REF21449 WORK-REF21450 RWORK-REF21451 INFO-REF21452))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRI2 "dsytri2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRI2 (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21454 ':INT32)
                              (LDA-REF21456 ':INT32)
                              (LWORK-REF21459 ':INT32)
                              (INFO-REF21460 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21454 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21456 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21459 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21460 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21455 A)
                                            (IPIV-REF21457 IPIV)
                                            (WORK-REF21458 WORK))
      (%%DSYTRI2 UPLO N-REF21454 A-REF21455 LDA-REF21456 IPIV-REF21457
       WORK-REF21458 LWORK-REF21459 INFO-REF21460))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORBDB4 "sorbdb4_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (PHANTOM :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORBDB4
    (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 PHANTOM WORK
     LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB4)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PHANTOM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21461 ':INT32) (P-REF21462 ':INT32)
                              (Q-REF21463 ':INT32)
                              (LDX11-REF21465 ':INT32)
                              (LDX21-REF21467 ':INT32)
                              (LWORK-REF21475 ':INT32)
                              (INFO-REF21476 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21461 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF21462 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF21463 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF21465 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF21467 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21475 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21476 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF21464 X11)
                                            (X21-REF21466 X21)
                                            (THETA-REF21468 THETA)
                                            (PHI-REF21469 PHI)
                                            (TAUP1-REF21470 TAUP1)
                                            (TAUP2-REF21471 TAUP2)
                                            (TAUQ1-REF21472 TAUQ1)
                                            (PHANTOM-REF21473 PHANTOM)
                                            (WORK-REF21474 WORK))
      (%%SORBDB4 M-REF21461 P-REF21462 Q-REF21463 X11-REF21464
       LDX11-REF21465 X21-REF21466 LDX21-REF21467 THETA-REF21468
       PHI-REF21469 TAUP1-REF21470 TAUP2-REF21471 TAUQ1-REF21472
       PHANTOM-REF21473 WORK-REF21474 LWORK-REF21475 INFO-REF21476))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CBBCSD "cbbcsd_")
  ((JOBU1 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU2 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV1T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV2T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (U1 :FOREIGN-ADDRESS) (LDU1 :FOREIGN-ADDRESS) (U2 :FOREIGN-ADDRESS)
   (LDU2 :FOREIGN-ADDRESS) (V1T :FOREIGN-ADDRESS)
   (LDV1T :FOREIGN-ADDRESS) (V2T :FOREIGN-ADDRESS)
   (LDV2T :FOREIGN-ADDRESS) (B11D :FOREIGN-ADDRESS)
   (B11E :FOREIGN-ADDRESS) (B12D :FOREIGN-ADDRESS)
   (B12E :FOREIGN-ADDRESS) (B21D :FOREIGN-ADDRESS)
   (B21E :FOREIGN-ADDRESS) (B22D :FOREIGN-ADDRESS)
   (B22E :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CBBCSD
    (JOBU1 JOBU2 JOBV1T JOBV2T TRANS M P Q THETA PHI U1 LDU1 U2 LDU2
     V1T LDV1T V2T LDV2T B11D B11E B12D B12E B21D B21E B22D B22E RWORK
     LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CBBCSD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    U1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    U2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V1T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V2T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B11D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B11E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B12D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B12E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B21D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B21E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B22D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B22E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21482 ':INT32) (P-REF21483 ':INT32)
                              (Q-REF21484 ':INT32)
                              (LDU1-REF21488 ':INT32)
                              (LDU2-REF21490 ':INT32)
                              (LDV1T-REF21492 ':INT32)
                              (LDV2T-REF21494 ':INT32)
                              (LRWORK-REF21504 ':INT32)
                              (INFO-REF21505 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21482 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF21483 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF21484 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF21488 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF21490 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF21492 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF21494 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF21504 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21505 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF21485 THETA)
                                            (PHI-REF21486 PHI)
                                            (U1-REF21487 U1)
                                            (U2-REF21489 U2)
                                            (V1T-REF21491 V1T)
                                            (V2T-REF21493 V2T)
                                            (B11D-REF21495 B11D)
                                            (B11E-REF21496 B11E)
                                            (B12D-REF21497 B12D)
                                            (B12E-REF21498 B12E)
                                            (B21D-REF21499 B21D)
                                            (B21E-REF21500 B21E)
                                            (B22D-REF21501 B22D)
                                            (B22E-REF21502 B22E)
                                            (RWORK-REF21503 RWORK))
      (%%CBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF21482 P-REF21483
       Q-REF21484 THETA-REF21485 PHI-REF21486 U1-REF21487 LDU1-REF21488
       U2-REF21489 LDU2-REF21490 V1T-REF21491 LDV1T-REF21492
       V2T-REF21493 LDV2T-REF21494 B11D-REF21495 B11E-REF21496
       B12D-REF21497 B12E-REF21498 B21D-REF21499 B21E-REF21500
       B22D-REF21501 B22E-REF21502 RWORK-REF21503 LRWORK-REF21504
       INFO-REF21505))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLATPS "dlatps_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (NORMIN (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (CNORM :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLATPS
    (UPLO TRANS DIAG NORMIN N AP X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATPS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) CNORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21510 ':INT32)
                              (SCALE-REF21513 ':DOUBLE)
                              (INFO-REF21515 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21510 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21513 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21515 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21511 AP)
                                            (X-REF21512 X)
                                            (CNORM-REF21514 CNORM))
      (%%DLATPS UPLO TRANS DIAG NORMIN N-REF21510 AP-REF21511
       X-REF21512 SCALE-REF21513 CNORM-REF21514 INFO-REF21515))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DBDSQR "dbdsqr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NCVT :FOREIGN-ADDRESS) (NRU :FOREIGN-ADDRESS)
   (NCC :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS)
   (LDU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DBDSQR
    (UPLO N NCVT NRU NCC D E VT LDVT U LDU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DBDSQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21517 ':INT32)
                              (NCVT-REF21518 ':INT32)
                              (NRU-REF21519 ':INT32)
                              (NCC-REF21520 ':INT32)
                              (LDVT-REF21524 ':INT32)
                              (LDU-REF21526 ':INT32)
                              (LDC-REF21528 ':INT32)
                              (INFO-REF21530 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21517 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF21518 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF21519 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF21520 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF21524 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF21526 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF21528 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21530 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21521 D)
                                            (E-REF21522 E)
                                            (VT-REF21523 VT)
                                            (U-REF21525 U)
                                            (C-REF21527 C)
                                            (WORK-REF21529 WORK))
      (%%DBDSQR UPLO N-REF21517 NCVT-REF21518 NRU-REF21519 NCC-REF21520
       D-REF21521 E-REF21522 VT-REF21523 LDVT-REF21524 U-REF21525
       LDU-REF21526 C-REF21527 LDC-REF21528 WORK-REF21529
       INFO-REF21530))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAQSY "dlaqsy_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (SCOND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAQSY (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQSY)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21532 ':INT32)
                              (LDA-REF21534 ':INT32)
                              (SCOND-REF21536 ':DOUBLE)
                              (AMAX-REF21537 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21532 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21534 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21536 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21537 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21533 A)
                                            (S-REF21535 S))
      (%%DLAQSY UPLO N-REF21532 A-REF21533 LDA-REF21534 S-REF21535
       SCOND-REF21536 AMAX-REF21537 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPTTRF "zpttrf_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPTTRF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTTRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21539 ':INT32)
                              (INFO-REF21542 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21539 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21542 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21540 D)
                                            (E-REF21541 E))
      (%%ZPTTRF N-REF21539 D-REF21540 E-REF21541 INFO-REF21542))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAUUM "zlauum_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAUUM (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAUUM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21544 ':INT32)
                              (LDA-REF21546 ':INT32)
                              (INFO-REF21547 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21544 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21546 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21547 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21545 A))
      (%%ZLAUUM UPLO N-REF21544 A-REF21545 LDA-REF21546
       INFO-REF21547))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYSV_AA "dsysv_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYSV_AA
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSV_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21549 ':INT32)
                              (NRHS-REF21550 ':INT32)
                              (LDA-REF21552 ':INT32)
                              (LDB-REF21555 ':INT32)
                              (LWORK-REF21557 ':INT32)
                              (INFO-REF21558 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21549 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21550 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21552 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21555 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21557 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21558 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21551 A)
                                            (IPIV-REF21553 IPIV)
                                            (B-REF21554 B)
                                            (WORK-REF21556 WORK))
      (%%DSYSV_AA UPLO N-REF21549 NRHS-REF21550 A-REF21551 LDA-REF21552
       IPIV-REF21553 B-REF21554 LDB-REF21555 WORK-REF21556
       LWORK-REF21557 INFO-REF21558))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSPTRF "dsptrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSPTRF (UPLO N AP IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21560 ':INT32)
                              (INFO-REF21563 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21560 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21563 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21561 AP)
                                            (IPIV-REF21562 IPIV))
      (%%DSPTRF UPLO N-REF21560 AP-REF21561 IPIV-REF21562
       INFO-REF21563))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGESC2 "cgesc2_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (RHS :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (JPIV :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGESC2 (N A LDA RHS IPIV JPIV SCALE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESC2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    RHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21564 ':INT32)
                              (LDA-REF21566 ':INT32)
                              (SCALE-REF21570 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21564 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21566 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21570 :FLOAT) SCALE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21565 A)
                                            (RHS-REF21567 RHS)
                                            (IPIV-REF21568 IPIV)
                                            (JPIV-REF21569 JPIV))
      (%%CGESC2 N-REF21564 A-REF21565 LDA-REF21566 RHS-REF21567
       IPIV-REF21568 JPIV-REF21569 SCALE-REF21570))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEQRT2 "cgeqrt2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEQRT2 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQRT2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21571 ':INT32) (N-REF21572 ':INT32)
                              (LDA-REF21574 ':INT32)
                              (LDT-REF21576 ':INT32)
                              (INFO-REF21577 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21571 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21572 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21574 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21576 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21577 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21573 A)
                                            (T-REF21575 T))
      (%%CGEQRT2 M-REF21571 N-REF21572 A-REF21573 LDA-REF21574
       T-REF21575 LDT-REF21576 INFO-REF21577))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTRS_3 "ssytrs_3_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS_3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21579 ':INT32)
                              (NRHS-REF21580 ':INT32)
                              (LDA-REF21582 ':INT32)
                              (LDB-REF21586 ':INT32)
                              (INFO-REF21587 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21579 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21580 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21582 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21586 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21587 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21581 A)
                                            (E-REF21583 E)
                                            (IPIV-REF21584 IPIV)
                                            (B-REF21585 B))
      (%%SSYTRS_3 UPLO N-REF21579 NRHS-REF21580 A-REF21581 LDA-REF21582
       E-REF21583 IPIV-REF21584 B-REF21585 LDB-REF21586
       INFO-REF21587))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGELSY "sgelsy_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (JPVT :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (RANK :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGELSY
    (M N NRHS A LDA B LDB JPVT RCOND RANK WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELSY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPVT)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21588 ':INT32) (N-REF21589 ':INT32)
                              (NRHS-REF21590 ':INT32)
                              (LDA-REF21592 ':INT32)
                              (LDB-REF21594 ':INT32)
                              (RCOND-REF21596 ':FLOAT)
                              (RANK-REF21597 ':INT32)
                              (LWORK-REF21599 ':INT32)
                              (INFO-REF21600 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21588 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21589 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21590 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21592 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21594 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21596 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF21597 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21599 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21600 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21591 A)
                                            (B-REF21593 B)
                                            (JPVT-REF21595 JPVT)
                                            (WORK-REF21598 WORK))
      (%%SGELSY M-REF21588 N-REF21589 NRHS-REF21590 A-REF21591
       LDA-REF21592 B-REF21593 LDB-REF21594 JPVT-REF21595
       RCOND-REF21596 RANK-REF21597 WORK-REF21598 LWORK-REF21599
       INFO-REF21600))))

(COMMON-LISP:DECLAIM (COMMON-LISP:NOTINLINE %%SLAORHR_COL_GETRFNP
                      %SLAORHR_COL_GETRFNP %%CLARCM %CLARCM %%DGEBD2
                      %DGEBD2 %%CLARFB %CLARFB %%SORGQR %SORGQR
                      %%DORGQR %DORGQR %%SSPGVD %SSPGVD %%SHSEQR
                      %SHSEQR %%ZGEQRFP %ZGEQRFP %%SORGHR %SORGHR
                      %%DLASD5 %DLASD5 %%STPTRS %STPTRS %%SCOMBSSQ
                      %SCOMBSSQ %%DSYTRF_RK %DSYTRF_RK %%SLAPMT %SLAPMT
                      %%ZUNMBR %ZUNMBR %%CTPTRI %CTPTRI %%ZLACN2
                      %ZLACN2 %%CTPMLQT %CTPMLQT %%CGESV %CGESV
                      %%ZLAMTSQR %ZLAMTSQR %%ZUNHR_COL %ZUNHR_COL
                      %%SLASD8 %SLASD8 %%DGETRF2 %DGETRF2 %%STRTRI
                      %STRTRI %%SLATRD %SLATRD %%ZGELSD %ZGELSD
                      %%DLASCL2 %DLASCL2 %%ZHESV %ZHESV %%DPORFSX
                      %DPORFSX %%DGGES %DGGES %%DSYTRI2X %DSYTRI2X
                      %%SLASQ4 %SLASQ4 %%CHETRI_ROOK %CHETRI_ROOK
                      %%ZLANSY %ZLANSY %%DLAQSB %DLAQSB %%ZPTRFS
                      %ZPTRFS %%SSYSVXX %SSYSVXX %%ZGEQLF %ZGEQLF
                      %%DLAQTR %DLAQTR %%DGGEV %DGGEV %%CSYSV_AA
                      %CSYSV_AA %%DSBTRD %DSBTRD %%ZUNMQL %ZUNMQL
                      %%ILACLR %ILACLR %%SLAQR4 %SLAQR4 %%DLASD0
                      %DLASD0 %%ZPSTF2 %ZPSTF2 %%DGGGLM %DGGGLM
                      %%ZLANHF %ZLANHF %%CLAQHB %CLAQHB %%ZSPRFS
                      %ZSPRFS %%CLA_GBRCOND_X %CLA_GBRCOND_X %%ICMAX1
                      %ICMAX1 %%ZLALSD %ZLALSD %%CLASWLQ %CLASWLQ
                      %%ZGBTRS %ZGBTRS %%ILACLC %ILACLC %%CSYSWAPR
                      %CSYSWAPR %%ZPTTRS %ZPTTRS %%ZGELQF %ZGELQF
                      %%ZLASR %ZLASR %%STPCON %STPCON %%DLATRD %DLATRD
                      %%SORM2R %SORM2R %%CLAEV2 %CLAEV2 %%DHGEQZ
                      %DHGEQZ %%CGTTRF %CGTTRF %%DGTTRS %DGTTRS
                      %%CLA_HERPVGRW %CLA_HERPVGRW %%CPOSVX %CPOSVX
                      %%DGBEQUB %DGBEQUB %%ZHEGV %ZHEGV %%CGBEQUB
                      %CGBEQUB %%CLARTG %CLARTG %%DGGEVX %DGGEVX
                      %%ZHPGST %ZHPGST %%DSBEV_2STAGE %DSBEV_2STAGE
                      %%DGEQR2 %DGEQR2 %%ZTBRFS %ZTBRFS %%CLA_GEAMV
                      %CLA_GEAMV %%SSPSV %SSPSV %%DLAQGE %DLAQGE
                      %%ZLARTV %ZLARTV %%DLARFB %DLARFB %%CPSTF2
                      %CPSTF2 %%ZUNBDB2 %ZUNBDB2 %%ZUNBDB1 %ZUNBDB1
                      %%DLA_GBRPVGRW %DLA_GBRPVGRW %%SBDSQR %SBDSQR
                      %%CLANGB %CLANGB %%DPOSVX %DPOSVX %%SLACN2
                      %SLACN2 %%ZSYSV_AA %ZSYSV_AA %%STPMLQT %STPMLQT
                      %%ZHPRFS %ZHPRFS %%CGESVD %CGESVD %%CHBGST
                      %CHBGST %%DGTCON %DGTCON %%ZLARZB %ZLARZB
                      %%SGGESX %SGGESX %%SPOCON %SPOCON %%SGEEQUB
                      %SGEEQUB %%SLASCL2 %SLASCL2 %%CGGESX %CGGESX
                      %%CGTRFS %CGTRFS %%ZSYTRF %ZSYTRF %%ZLA_PORCOND_C
                      %ZLA_PORCOND_C %%SORCSD %SORCSD %%CLAQR4 %CLAQR4
                      %%DSBEVX %DSBEVX %%CUNGTR %CUNGTR %%SLASYF_RK
                      %SLASYF_RK %%CLAHR2 %CLAHR2 %%ZLA_PORFSX_EXTENDED
                      %ZLA_PORFSX_EXTENDED %%SGESVJ %SGESVJ %%CUPMTR
                      %CUPMTR %%ZSYCONV %ZSYCONV %%ZSYTRI_3 %ZSYTRI_3
                      %%SLARGV %SLARGV %%DORBDB5 %DORBDB5 %%STPTTR
                      %STPTTR %%SLAEXC %SLAEXC %%DCOMBSSQ %DCOMBSSQ
                      %%SLARFY %SLARFY %%SGEBAL %SGEBAL %%ZSPR %ZSPR
                      %%SGELSD %SGELSD %%ZGESVXX %ZGESVXX %%CUNG2L
                      %CUNG2L %%SGERQ2 %SGERQ2 %%CHEEVX_2STAGE
                      %CHEEVX_2STAGE %%SSYTF2 %SSYTF2 %%CTPCON %CTPCON
                      %%ZTGSNA %ZTGSNA %%CLADIV %CLADIV %%STFTTR
                      %STFTTR %%ZHB2ST_KERNELS %ZHB2ST_KERNELS %%DLAQSP
                      %DLAQSP %%SLASD2 %SLASD2 %%SLANTP %SLANTP
                      %%DGGEV3 %DGGEV3 %%XERBLA %XERBLA %%DTGSEN
                      %DTGSEN %%ZGTTRF %ZGTTRF %%DORGR2 %DORGR2
                      %%DLANV2 %DLANV2 %%SLAED3 %SLAED3 %%DGEESX
                      %DGEESX %%SSYTRI2X %SSYTRI2X %%SGEMLQT %SGEMLQT
                      %%CUNCSD %CUNCSD %%ZGESC2 %ZGESC2 %%ZSTEIN
                      %ZSTEIN %%SSB2ST_KERNELS %SSB2ST_KERNELS %%DLASD4
                      %DLASD4 %%DGESVDQ %DGESVDQ %%ZHEEQUB %ZHEEQUB
                      %%DGESVDX %DGESVDX %%CHPSV %CHPSV %%CGBSVX
                      %CGBSVX %%ZLA_LIN_BERR %ZLA_LIN_BERR %%CHESV_AA
                      %CHESV_AA %%ZLANGB %ZLANGB %%CGETF2 %CGETF2
                      %%DLACN2 %DLACN2 %%DORMLQ %DORMLQ %%CLAUU2
                      %CLAUU2 %%DSFRK %DSFRK %%CLAPMT %CLAPMT %%DLANGB
                      %DLANGB %%CHSEIN %CHSEIN %%CHETRD_2STAGE
                      %CHETRD_2STAGE %%DSYSV_ROOK %DSYSV_ROOK %%CGEEVX
                      %CGEEVX %%DGEQRT3 %DGEQRT3 %%DSYTRD_SY2SB
                      %DSYTRD_SY2SB %%DGEQRT %DGEQRT %%SGGEV %SGGEV
                      %%SPBSVX %SPBSVX %%ZLA_SYRCOND_X %ZLA_SYRCOND_X
                      %%SGBRFSX %SGBRFSX %%CLACRT %CLACRT %%ZHETRI_3X
                      %ZHETRI_3X %%SPTTRF %SPTTRF %%CHETRD %CHETRD
                      %%CUNGTSQR %CUNGTSQR %%CBDSQR %CBDSQR %%CGELQ
                      %CGELQ %%DLARFT %DLARFT %%CPTSV %CPTSV %%SLATDF
                      %SLATDF %%CLAESY %CLAESY %%STPTRI %STPTRI
                      %%ZHETRI %ZHETRI %%DORGLQ %DORGLQ %%DLASV2
                      %DLASV2 %%CGETRF %CGETRF %%ZSYTRF_RK %ZSYTRF_RK
                      %%ZPOTRS %ZPOTRS %%CTGEVC %CTGEVC %%ZSYTRI2
                      %ZSYTRI2 %%SISNAN %SISNAN %%DPBCON %DPBCON
                      %%ZSYTRS_AA_2STAGE %ZSYTRS_AA_2STAGE %%CPOTRI
                      %CPOTRI %%DPPTRI %DPPTRI %%CSYTRI_3X %CSYTRI_3X
                      %%ZHETRF_AA_2STAGE %ZHETRF_AA_2STAGE %%CHETRS_3
                      %CHETRS_3 %%SORG2R %SORG2R %%DSYTRF_ROOK
                      %DSYTRF_ROOK %%SLAQSY %SLAQSY %%ZGGSVP3 %ZGGSVP3
                      %%ZHEEVR_2STAGE %ZHEEVR_2STAGE %%DPBSVX %DPBSVX
                      %%CSYTRI %CSYTRI %%DSBGVD %DSBGVD %%ZLANTB
                      %ZLANTB %%ZTPMLQT %ZTPMLQT %%DLA_PORCOND
                      %DLA_PORCOND %%SSPTRD %SSPTRD %%DLAPY2 %DLAPY2
                      %%SSYEVD %SSYEVD %%SLAPLL %SLAPLL %%CTRSNA
                      %CTRSNA %%SSYTRS_AA_2STAGE %SSYTRS_AA_2STAGE
                      %%IEEECK %IEEECK %%CGGGLM %CGGGLM %%SLASRT
                      %SLASRT %%SSTEGR %SSTEGR %%DPBTRF %DPBTRF
                      %%ZLASWP %ZLASWP %%ZGERFSX %ZGERFSX %%DSYTRI2
                      %DSYTRI2 %%SORBDB4 %SORBDB4 %%CBBCSD %CBBCSD
                      %%DLATPS %DLATPS %%DBDSQR %DBDSQR %%DLAQSY
                      %DLAQSY %%ZPTTRF %ZPTTRF %%ZLAUUM %ZLAUUM
                      %%DSYSV_AA %DSYSV_AA %%DSPTRF %DSPTRF %%CGESC2
                      %CGESC2 %%CGEQRT2 %CGEQRT2 %%SSYTRS_3 %SSYTRS_3
                      %%SGELSY %SGELSY))

(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS
  'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK
  '(("SLAORHR_COL_GETRFNP" "slaorhr_col_getrfnp_" %%SLAORHR_COL_GETRFNP
     %SLAORHR_COL_GETRFNP)
    ("CLARCM" "clarcm_" %%CLARCM %CLARCM)
    ("DGEBD2" "dgebd2_" %%DGEBD2 %DGEBD2)
    ("CLARFB" "clarfb_" %%CLARFB %CLARFB)
    ("SORGQR" "sorgqr_" %%SORGQR %SORGQR)
    ("DORGQR" "dorgqr_" %%DORGQR %DORGQR)
    ("SSPGVD" "sspgvd_" %%SSPGVD %SSPGVD)
    ("SHSEQR" "shseqr_" %%SHSEQR %SHSEQR)
    ("ZGEQRFP" "zgeqrfp_" %%ZGEQRFP %ZGEQRFP)
    ("SORGHR" "sorghr_" %%SORGHR %SORGHR)
    ("DLASD5" "dlasd5_" %%DLASD5 %DLASD5)
    ("STPTRS" "stptrs_" %%STPTRS %STPTRS)
    ("SCOMBSSQ" "scombssq_" %%SCOMBSSQ %SCOMBSSQ)
    ("DSYTRF_RK" "dsytrf_rk_" %%DSYTRF_RK %DSYTRF_RK)
    ("SLAPMT" "slapmt_" %%SLAPMT %SLAPMT)
    ("ZUNMBR" "zunmbr_" %%ZUNMBR %ZUNMBR)
    ("CTPTRI" "ctptri_" %%CTPTRI %CTPTRI)
    ("ZLACN2" "zlacn2_" %%ZLACN2 %ZLACN2)
    ("CTPMLQT" "ctpmlqt_" %%CTPMLQT %CTPMLQT)
    ("CGESV" "cgesv_" %%CGESV %CGESV)
    ("ZLAMTSQR" "zlamtsqr_" %%ZLAMTSQR %ZLAMTSQR)
    ("ZUNHR_COL" "zunhr_col_" %%ZUNHR_COL %ZUNHR_COL)
    ("SLASD8" "slasd8_" %%SLASD8 %SLASD8)
    ("DGETRF2" "dgetrf2_" %%DGETRF2 %DGETRF2)
    ("STRTRI" "strtri_" %%STRTRI %STRTRI)
    ("SLATRD" "slatrd_" %%SLATRD %SLATRD)
    ("ZGELSD" "zgelsd_" %%ZGELSD %ZGELSD)
    ("DLASCL2" "dlascl2_" %%DLASCL2 %DLASCL2)
    ("ZHESV" "zhesv_" %%ZHESV %ZHESV)
    ("DPORFSX" "dporfsx_" %%DPORFSX %DPORFSX)
    ("DGGES" "dgges_" %%DGGES %DGGES)
    ("DSYTRI2X" "dsytri2x_" %%DSYTRI2X %DSYTRI2X)
    ("SLASQ4" "slasq4_" %%SLASQ4 %SLASQ4)
    ("CHETRI_ROOK" "chetri_rook_" %%CHETRI_ROOK %CHETRI_ROOK)
    ("ZLANSY" "zlansy_" %%ZLANSY %ZLANSY)
    ("DLAQSB" "dlaqsb_" %%DLAQSB %DLAQSB)
    ("ZPTRFS" "zptrfs_" %%ZPTRFS %ZPTRFS)
    ("SSYSVXX" "ssysvxx_" %%SSYSVXX %SSYSVXX)
    ("ZGEQLF" "zgeqlf_" %%ZGEQLF %ZGEQLF)
    ("DLAQTR" "dlaqtr_" %%DLAQTR %DLAQTR)
    ("DGGEV" "dggev_" %%DGGEV %DGGEV)
    ("CSYSV_AA" "csysv_aa_" %%CSYSV_AA %CSYSV_AA)
    ("DSBTRD" "dsbtrd_" %%DSBTRD %DSBTRD)
    ("ZUNMQL" "zunmql_" %%ZUNMQL %ZUNMQL)
    ("ILACLR" "ilaclr_" %%ILACLR %ILACLR)
    ("SLAQR4" "slaqr4_" %%SLAQR4 %SLAQR4)
    ("DLASD0" "dlasd0_" %%DLASD0 %DLASD0)
    ("ZPSTF2" "zpstf2_" %%ZPSTF2 %ZPSTF2)
    ("DGGGLM" "dggglm_" %%DGGGLM %DGGGLM)
    ("ZLANHF" "zlanhf_" %%ZLANHF %ZLANHF)
    ("CLAQHB" "claqhb_" %%CLAQHB %CLAQHB)
    ("ZSPRFS" "zsprfs_" %%ZSPRFS %ZSPRFS)
    ("CLA_GBRCOND_X" "cla_gbrcond_x_" %%CLA_GBRCOND_X %CLA_GBRCOND_X)
    ("ICMAX1" "icmax1_" %%ICMAX1 %ICMAX1)
    ("ZLALSD" "zlalsd_" %%ZLALSD %ZLALSD)
    ("CLASWLQ" "claswlq_" %%CLASWLQ %CLASWLQ)
    ("ZGBTRS" "zgbtrs_" %%ZGBTRS %ZGBTRS)
    ("ILACLC" "ilaclc_" %%ILACLC %ILACLC)
    ("CSYSWAPR" "csyswapr_" %%CSYSWAPR %CSYSWAPR)
    ("ZPTTRS" "zpttrs_" %%ZPTTRS %ZPTTRS)
    ("ZGELQF" "zgelqf_" %%ZGELQF %ZGELQF)
    ("ZLASR" "zlasr_" %%ZLASR %ZLASR)
    ("STPCON" "stpcon_" %%STPCON %STPCON)
    ("DLATRD" "dlatrd_" %%DLATRD %DLATRD)
    ("SORM2R" "sorm2r_" %%SORM2R %SORM2R)
    ("CLAEV2" "claev2_" %%CLAEV2 %CLAEV2)
    ("DHGEQZ" "dhgeqz_" %%DHGEQZ %DHGEQZ)
    ("CGTTRF" "cgttrf_" %%CGTTRF %CGTTRF)
    ("DGTTRS" "dgttrs_" %%DGTTRS %DGTTRS)
    ("CLA_HERPVGRW" "cla_herpvgrw_" %%CLA_HERPVGRW %CLA_HERPVGRW)
    ("CPOSVX" "cposvx_" %%CPOSVX %CPOSVX)
    ("DGBEQUB" "dgbequb_" %%DGBEQUB %DGBEQUB)
    ("ZHEGV" "zhegv_" %%ZHEGV %ZHEGV)
    ("CGBEQUB" "cgbequb_" %%CGBEQUB %CGBEQUB)
    ("CLARTG" "clartg_" %%CLARTG %CLARTG)
    ("DGGEVX" "dggevx_" %%DGGEVX %DGGEVX)
    ("ZHPGST" "zhpgst_" %%ZHPGST %ZHPGST)
    ("DSBEV_2STAGE" "dsbev_2stage_" %%DSBEV_2STAGE %DSBEV_2STAGE)
    ("DGEQR2" "dgeqr2_" %%DGEQR2 %DGEQR2)
    ("ZTBRFS" "ztbrfs_" %%ZTBRFS %ZTBRFS)
    ("CLA_GEAMV" "cla_geamv_" %%CLA_GEAMV %CLA_GEAMV)
    ("SSPSV" "sspsv_" %%SSPSV %SSPSV)
    ("DLAQGE" "dlaqge_" %%DLAQGE %DLAQGE)
    ("ZLARTV" "zlartv_" %%ZLARTV %ZLARTV)
    ("DLARFB" "dlarfb_" %%DLARFB %DLARFB)
    ("CPSTF2" "cpstf2_" %%CPSTF2 %CPSTF2)
    ("ZUNBDB2" "zunbdb2_" %%ZUNBDB2 %ZUNBDB2)
    ("ZUNBDB1" "zunbdb1_" %%ZUNBDB1 %ZUNBDB1)
    ("DLA_GBRPVGRW" "dla_gbrpvgrw_" %%DLA_GBRPVGRW %DLA_GBRPVGRW)
    ("SBDSQR" "sbdsqr_" %%SBDSQR %SBDSQR)
    ("CLANGB" "clangb_" %%CLANGB %CLANGB)
    ("DPOSVX" "dposvx_" %%DPOSVX %DPOSVX)
    ("SLACN2" "slacn2_" %%SLACN2 %SLACN2)
    ("ZSYSV_AA" "zsysv_aa_" %%ZSYSV_AA %ZSYSV_AA)
    ("STPMLQT" "stpmlqt_" %%STPMLQT %STPMLQT)
    ("ZHPRFS" "zhprfs_" %%ZHPRFS %ZHPRFS)
    ("CGESVD" "cgesvd_" %%CGESVD %CGESVD)
    ("CHBGST" "chbgst_" %%CHBGST %CHBGST)
    ("DGTCON" "dgtcon_" %%DGTCON %DGTCON)
    ("ZLARZB" "zlarzb_" %%ZLARZB %ZLARZB)
    ("SGGESX" "sggesx_" %%SGGESX %SGGESX)
    ("SPOCON" "spocon_" %%SPOCON %SPOCON)
    ("SGEEQUB" "sgeequb_" %%SGEEQUB %SGEEQUB)
    ("SLASCL2" "slascl2_" %%SLASCL2 %SLASCL2)
    ("CGGESX" "cggesx_" %%CGGESX %CGGESX)
    ("CGTRFS" "cgtrfs_" %%CGTRFS %CGTRFS)
    ("ZSYTRF" "zsytrf_" %%ZSYTRF %ZSYTRF)
    ("ZLA_PORCOND_C" "zla_porcond_c_" %%ZLA_PORCOND_C %ZLA_PORCOND_C)
    ("SORCSD" "sorcsd_" %%SORCSD %SORCSD)
    ("CLAQR4" "claqr4_" %%CLAQR4 %CLAQR4)
    ("DSBEVX" "dsbevx_" %%DSBEVX %DSBEVX)
    ("CUNGTR" "cungtr_" %%CUNGTR %CUNGTR)
    ("SLASYF_RK" "slasyf_rk_" %%SLASYF_RK %SLASYF_RK)
    ("CLAHR2" "clahr2_" %%CLAHR2 %CLAHR2)
    ("ZLA_PORFSX_EXTENDED" "zla_porfsx_extended_" %%ZLA_PORFSX_EXTENDED
     %ZLA_PORFSX_EXTENDED)
    ("SGESVJ" "sgesvj_" %%SGESVJ %SGESVJ)
    ("CUPMTR" "cupmtr_" %%CUPMTR %CUPMTR)
    ("ZSYCONV" "zsyconv_" %%ZSYCONV %ZSYCONV)
    ("ZSYTRI_3" "zsytri_3_" %%ZSYTRI_3 %ZSYTRI_3)
    ("SLARGV" "slargv_" %%SLARGV %SLARGV)
    ("DORBDB5" "dorbdb5_" %%DORBDB5 %DORBDB5)
    ("STPTTR" "stpttr_" %%STPTTR %STPTTR)
    ("SLAEXC" "slaexc_" %%SLAEXC %SLAEXC)
    ("DCOMBSSQ" "dcombssq_" %%DCOMBSSQ %DCOMBSSQ)
    ("SLARFY" "slarfy_" %%SLARFY %SLARFY)
    ("SGEBAL" "sgebal_" %%SGEBAL %SGEBAL) ("ZSPR" "zspr_" %%ZSPR %ZSPR)
    ("SGELSD" "sgelsd_" %%SGELSD %SGELSD)
    ("ZGESVXX" "zgesvxx_" %%ZGESVXX %ZGESVXX)
    ("CUNG2L" "cung2l_" %%CUNG2L %CUNG2L)
    ("SGERQ2" "sgerq2_" %%SGERQ2 %SGERQ2)
    ("CHEEVX_2STAGE" "cheevx_2stage_" %%CHEEVX_2STAGE %CHEEVX_2STAGE)
    ("SSYTF2" "ssytf2_" %%SSYTF2 %SSYTF2)
    ("CTPCON" "ctpcon_" %%CTPCON %CTPCON)
    ("ZTGSNA" "ztgsna_" %%ZTGSNA %ZTGSNA)
    ("CLADIV" "cladiv_" %%CLADIV %CLADIV)
    ("STFTTR" "stfttr_" %%STFTTR %STFTTR)
    ("ZHB2ST_KERNELS" "zhb2st_kernels_" %%ZHB2ST_KERNELS
     %ZHB2ST_KERNELS)
    ("DLAQSP" "dlaqsp_" %%DLAQSP %DLAQSP)
    ("SLASD2" "slasd2_" %%SLASD2 %SLASD2)
    ("SLANTP" "slantp_" %%SLANTP %SLANTP)
    ("DGGEV3" "dggev3_" %%DGGEV3 %DGGEV3)
    ("XERBLA" "xerbla_" %%XERBLA %XERBLA)
    ("DTGSEN" "dtgsen_" %%DTGSEN %DTGSEN)
    ("ZGTTRF" "zgttrf_" %%ZGTTRF %ZGTTRF)
    ("DORGR2" "dorgr2_" %%DORGR2 %DORGR2)
    ("DLANV2" "dlanv2_" %%DLANV2 %DLANV2)
    ("SLAED3" "slaed3_" %%SLAED3 %SLAED3)
    ("DGEESX" "dgeesx_" %%DGEESX %DGEESX)
    ("SSYTRI2X" "ssytri2x_" %%SSYTRI2X %SSYTRI2X)
    ("SGEMLQT" "sgemlqt_" %%SGEMLQT %SGEMLQT)
    ("CUNCSD" "cuncsd_" %%CUNCSD %CUNCSD)
    ("ZGESC2" "zgesc2_" %%ZGESC2 %ZGESC2)
    ("ZSTEIN" "zstein_" %%ZSTEIN %ZSTEIN)
    ("SSB2ST_KERNELS" "ssb2st_kernels_" %%SSB2ST_KERNELS
     %SSB2ST_KERNELS)
    ("DLASD4" "dlasd4_" %%DLASD4 %DLASD4)
    ("DGESVDQ" "dgesvdq_" %%DGESVDQ %DGESVDQ)
    ("ZHEEQUB" "zheequb_" %%ZHEEQUB %ZHEEQUB)
    ("DGESVDX" "dgesvdx_" %%DGESVDX %DGESVDX)
    ("CHPSV" "chpsv_" %%CHPSV %CHPSV)
    ("CGBSVX" "cgbsvx_" %%CGBSVX %CGBSVX)
    ("ZLA_LIN_BERR" "zla_lin_berr_" %%ZLA_LIN_BERR %ZLA_LIN_BERR)
    ("CHESV_AA" "chesv_aa_" %%CHESV_AA %CHESV_AA)
    ("ZLANGB" "zlangb_" %%ZLANGB %ZLANGB)
    ("CGETF2" "cgetf2_" %%CGETF2 %CGETF2)
    ("DLACN2" "dlacn2_" %%DLACN2 %DLACN2)
    ("DORMLQ" "dormlq_" %%DORMLQ %DORMLQ)
    ("CLAUU2" "clauu2_" %%CLAUU2 %CLAUU2)
    ("DSFRK" "dsfrk_" %%DSFRK %DSFRK)
    ("CLAPMT" "clapmt_" %%CLAPMT %CLAPMT)
    ("DLANGB" "dlangb_" %%DLANGB %DLANGB)
    ("CHSEIN" "chsein_" %%CHSEIN %CHSEIN)
    ("CHETRD_2STAGE" "chetrd_2stage_" %%CHETRD_2STAGE %CHETRD_2STAGE)
    ("DSYSV_ROOK" "dsysv_rook_" %%DSYSV_ROOK %DSYSV_ROOK)
    ("CGEEVX" "cgeevx_" %%CGEEVX %CGEEVX)
    ("DGEQRT3" "dgeqrt3_" %%DGEQRT3 %DGEQRT3)
    ("DSYTRD_SY2SB" "dsytrd_sy2sb_" %%DSYTRD_SY2SB %DSYTRD_SY2SB)
    ("DGEQRT" "dgeqrt_" %%DGEQRT %DGEQRT)
    ("SGGEV" "sggev_" %%SGGEV %SGGEV)
    ("SPBSVX" "spbsvx_" %%SPBSVX %SPBSVX)
    ("ZLA_SYRCOND_X" "zla_syrcond_x_" %%ZLA_SYRCOND_X %ZLA_SYRCOND_X)
    ("SGBRFSX" "sgbrfsx_" %%SGBRFSX %SGBRFSX)
    ("CLACRT" "clacrt_" %%CLACRT %CLACRT)
    ("ZHETRI_3X" "zhetri_3x_" %%ZHETRI_3X %ZHETRI_3X)
    ("SPTTRF" "spttrf_" %%SPTTRF %SPTTRF)
    ("CHETRD" "chetrd_" %%CHETRD %CHETRD)
    ("CUNGTSQR" "cungtsqr_" %%CUNGTSQR %CUNGTSQR)
    ("CBDSQR" "cbdsqr_" %%CBDSQR %CBDSQR)
    ("CGELQ" "cgelq_" %%CGELQ %CGELQ)
    ("DLARFT" "dlarft_" %%DLARFT %DLARFT)
    ("CPTSV" "cptsv_" %%CPTSV %CPTSV)
    ("SLATDF" "slatdf_" %%SLATDF %SLATDF)
    ("CLAESY" "claesy_" %%CLAESY %CLAESY)
    ("STPTRI" "stptri_" %%STPTRI %STPTRI)
    ("ZHETRI" "zhetri_" %%ZHETRI %ZHETRI)
    ("DORGLQ" "dorglq_" %%DORGLQ %DORGLQ)
    ("DLASV2" "dlasv2_" %%DLASV2 %DLASV2)
    ("CGETRF" "cgetrf_" %%CGETRF %CGETRF)
    ("ZSYTRF_RK" "zsytrf_rk_" %%ZSYTRF_RK %ZSYTRF_RK)
    ("ZPOTRS" "zpotrs_" %%ZPOTRS %ZPOTRS)
    ("CTGEVC" "ctgevc_" %%CTGEVC %CTGEVC)
    ("ZSYTRI2" "zsytri2_" %%ZSYTRI2 %ZSYTRI2)
    ("SISNAN" "sisnan_" %%SISNAN %SISNAN)
    ("DPBCON" "dpbcon_" %%DPBCON %DPBCON)
    ("ZSYTRS_AA_2STAGE" "zsytrs_aa_2stage_" %%ZSYTRS_AA_2STAGE
     %ZSYTRS_AA_2STAGE)
    ("CPOTRI" "cpotri_" %%CPOTRI %CPOTRI)
    ("DPPTRI" "dpptri_" %%DPPTRI %DPPTRI)
    ("CSYTRI_3X" "csytri_3x_" %%CSYTRI_3X %CSYTRI_3X)
    ("ZHETRF_AA_2STAGE" "zhetrf_aa_2stage_" %%ZHETRF_AA_2STAGE
     %ZHETRF_AA_2STAGE)
    ("CHETRS_3" "chetrs_3_" %%CHETRS_3 %CHETRS_3)
    ("SORG2R" "sorg2r_" %%SORG2R %SORG2R)
    ("DSYTRF_ROOK" "dsytrf_rook_" %%DSYTRF_ROOK %DSYTRF_ROOK)
    ("SLAQSY" "slaqsy_" %%SLAQSY %SLAQSY)
    ("ZGGSVP3" "zggsvp3_" %%ZGGSVP3 %ZGGSVP3)
    ("ZHEEVR_2STAGE" "zheevr_2stage_" %%ZHEEVR_2STAGE %ZHEEVR_2STAGE)
    ("DPBSVX" "dpbsvx_" %%DPBSVX %DPBSVX)
    ("CSYTRI" "csytri_" %%CSYTRI %CSYTRI)
    ("DSBGVD" "dsbgvd_" %%DSBGVD %DSBGVD)
    ("ZLANTB" "zlantb_" %%ZLANTB %ZLANTB)
    ("ZTPMLQT" "ztpmlqt_" %%ZTPMLQT %ZTPMLQT)
    ("DLA_PORCOND" "dla_porcond_" %%DLA_PORCOND %DLA_PORCOND)
    ("SSPTRD" "ssptrd_" %%SSPTRD %SSPTRD)
    ("DLAPY2" "dlapy2_" %%DLAPY2 %DLAPY2)
    ("SSYEVD" "ssyevd_" %%SSYEVD %SSYEVD)
    ("SLAPLL" "slapll_" %%SLAPLL %SLAPLL)
    ("CTRSNA" "ctrsna_" %%CTRSNA %CTRSNA)
    ("SSYTRS_AA_2STAGE" "ssytrs_aa_2stage_" %%SSYTRS_AA_2STAGE
     %SSYTRS_AA_2STAGE)
    ("IEEECK" "ieeeck_" %%IEEECK %IEEECK)
    ("CGGGLM" "cggglm_" %%CGGGLM %CGGGLM)
    ("SLASRT" "slasrt_" %%SLASRT %SLASRT)
    ("SSTEGR" "sstegr_" %%SSTEGR %SSTEGR)
    ("DPBTRF" "dpbtrf_" %%DPBTRF %DPBTRF)
    ("ZLASWP" "zlaswp_" %%ZLASWP %ZLASWP)
    ("ZGERFSX" "zgerfsx_" %%ZGERFSX %ZGERFSX)
    ("DSYTRI2" "dsytri2_" %%DSYTRI2 %DSYTRI2)
    ("SORBDB4" "sorbdb4_" %%SORBDB4 %SORBDB4)
    ("CBBCSD" "cbbcsd_" %%CBBCSD %CBBCSD)
    ("DLATPS" "dlatps_" %%DLATPS %DLATPS)
    ("DBDSQR" "dbdsqr_" %%DBDSQR %DBDSQR)
    ("DLAQSY" "dlaqsy_" %%DLAQSY %DLAQSY)
    ("ZPTTRF" "zpttrf_" %%ZPTTRF %ZPTTRF)
    ("ZLAUUM" "zlauum_" %%ZLAUUM %ZLAUUM)
    ("DSYSV_AA" "dsysv_aa_" %%DSYSV_AA %DSYSV_AA)
    ("DSPTRF" "dsptrf_" %%DSPTRF %DSPTRF)
    ("CGESC2" "cgesc2_" %%CGESC2 %CGESC2)
    ("CGEQRT2" "cgeqrt2_" %%CGEQRT2 %CGEQRT2)
    ("SSYTRS_3" "ssytrs_3_" %%SSYTRS_3 %SSYTRS_3)
    ("SGELSY" "sgelsy_" %%SGELSY %SGELSY)))

(COMMON-LISP:EXPORT '(%SLAORHR_COL_GETRFNP %CLARCM %DGEBD2 %CLARFB
                      %SORGQR %DORGQR %SSPGVD %SHSEQR %ZGEQRFP %SORGHR
                      %DLASD5 %STPTRS %SCOMBSSQ %DSYTRF_RK %SLAPMT
                      %ZUNMBR %CTPTRI %ZLACN2 %CTPMLQT %CGESV %ZLAMTSQR
                      %ZUNHR_COL %SLASD8 %DGETRF2 %STRTRI %SLATRD
                      %ZGELSD %DLASCL2 %ZHESV %DPORFSX %DGGES %DSYTRI2X
                      %SLASQ4 %CHETRI_ROOK %ZLANSY %DLAQSB %ZPTRFS
                      %SSYSVXX %ZGEQLF %DLAQTR %DGGEV %CSYSV_AA %DSBTRD
                      %ZUNMQL %ILACLR %SLAQR4 %DLASD0 %ZPSTF2 %DGGGLM
                      %ZLANHF %CLAQHB %ZSPRFS %CLA_GBRCOND_X %ICMAX1
                      %ZLALSD %CLASWLQ %ZGBTRS %ILACLC %CSYSWAPR
                      %ZPTTRS %ZGELQF %ZLASR %STPCON %DLATRD %SORM2R
                      %CLAEV2 %DHGEQZ %CGTTRF %DGTTRS %CLA_HERPVGRW
                      %CPOSVX %DGBEQUB %ZHEGV %CGBEQUB %CLARTG %DGGEVX
                      %ZHPGST %DSBEV_2STAGE %DGEQR2 %ZTBRFS %CLA_GEAMV
                      %SSPSV %DLAQGE %ZLARTV %DLARFB %CPSTF2 %ZUNBDB2
                      %ZUNBDB1 %DLA_GBRPVGRW %SBDSQR %CLANGB %DPOSVX
                      %SLACN2 %ZSYSV_AA %STPMLQT %ZHPRFS %CGESVD
                      %CHBGST %DGTCON %ZLARZB %SGGESX %SPOCON %SGEEQUB
                      %SLASCL2 %CGGESX %CGTRFS %ZSYTRF %ZLA_PORCOND_C
                      %SORCSD %CLAQR4 %DSBEVX %CUNGTR %SLASYF_RK
                      %CLAHR2 %ZLA_PORFSX_EXTENDED %SGESVJ %CUPMTR
                      %ZSYCONV %ZSYTRI_3 %SLARGV %DORBDB5 %STPTTR
                      %SLAEXC %DCOMBSSQ %SLARFY %SGEBAL %ZSPR %SGELSD
                      %ZGESVXX %CUNG2L %SGERQ2 %CHEEVX_2STAGE %SSYTF2
                      %CTPCON %ZTGSNA %CLADIV %STFTTR %ZHB2ST_KERNELS
                      %DLAQSP %SLASD2 %SLANTP %DGGEV3 %XERBLA %DTGSEN
                      %ZGTTRF %DORGR2 %DLANV2 %SLAED3 %DGEESX %SSYTRI2X
                      %SGEMLQT %CUNCSD %ZGESC2 %ZSTEIN %SSB2ST_KERNELS
                      %DLASD4 %DGESVDQ %ZHEEQUB %DGESVDX %CHPSV %CGBSVX
                      %ZLA_LIN_BERR %CHESV_AA %ZLANGB %CGETF2 %DLACN2
                      %DORMLQ %CLAUU2 %DSFRK %CLAPMT %DLANGB %CHSEIN
                      %CHETRD_2STAGE %DSYSV_ROOK %CGEEVX %DGEQRT3
                      %DSYTRD_SY2SB %DGEQRT %SGGEV %SPBSVX
                      %ZLA_SYRCOND_X %SGBRFSX %CLACRT %ZHETRI_3X
                      %SPTTRF %CHETRD %CUNGTSQR %CBDSQR %CGELQ %DLARFT
                      %CPTSV %SLATDF %CLAESY %STPTRI %ZHETRI %DORGLQ
                      %DLASV2 %CGETRF %ZSYTRF_RK %ZPOTRS %CTGEVC
                      %ZSYTRI2 %SISNAN %DPBCON %ZSYTRS_AA_2STAGE
                      %CPOTRI %DPPTRI %CSYTRI_3X %ZHETRF_AA_2STAGE
                      %CHETRS_3 %SORG2R %DSYTRF_ROOK %SLAQSY %ZGGSVP3
                      %ZHEEVR_2STAGE %DPBSVX %CSYTRI %DSBGVD %ZLANTB
                      %ZTPMLQT %DLA_PORCOND %SSPTRD %DLAPY2 %SSYEVD
                      %SLAPLL %CTRSNA %SSYTRS_AA_2STAGE %IEEECK %CGGGLM
                      %SLASRT %SSTEGR %DPBTRF %ZLASWP %ZGERFSX %DSYTRI2
                      %SORBDB4 %CBBCSD %DLATPS %DBDSQR %DLAQSY %ZPTTRF
                      %ZLAUUM %DSYSV_AA %DSPTRF %CGESC2 %CGEQRT2
                      %SSYTRS_3 %SGELSY)
                    '#:MAGICL.LAPACK-CFFI)

;;; End of file.
